Focal Point
[SOLVED] Universal Concatenation - 1 SUM Field but Different Formats?

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/2087049096

November 28, 2018, 11:09 AM
Brandon Andrathy
[SOLVED] Universal Concatenation - 1 SUM Field but Different Formats?
Hey All,

This is just a theory question as I have a work-around.

The challenge is displaying multiple sum values in an across table that have different format types. It'd be nice to display each of the values without having to use FPRINT so that subtotals could be utilized. Subtotals unfortunately don't work with FPRINT in a COMPUTE statement (to my knowledge, happy for someone to prove me wrong).

So here is an example:

 

 TABLE FILE CAR
 SUM
     COMPUTE COLVAL/D12.2 = PaidAmount
 BY Country
 BY TOTAL COMPUTE COLID/I1 = 1;
 ON TABLE HOLD AS 'HOLD_1'
 END

 TABLE FILE CAR
 SUM
     COMPUTE COLVAL/D12C = Number_Sales
 BY Country
 BY TOTAL COMPUTE COLID/I1 = 2;
 ON TABLE HOLD AS 'HOLD_2'
 END
 
 TABLE FILE HOLD_1
 SUM
	COLVAL AS ''
 ACROSS COLID
 BY Country
 MORE HOLD_2
 ENd
 


As this code is written right now, I will get an error since the format in the COLVAL SUM fields between the two hold files are different.

Can anyone think of a way other than using FPRINT in the Compute statement to have different formats in the same field in a Universal Concatenation statement in order to have subtotal functionality in the resulting Concatenated table?

This message has been edited. Last edited by: Brandon Andrathy,


WebFOCUS 8204
November 28, 2018, 11:34 AM
Tony A
Use dynamic formatting -

SET ASNAMES = ON
SET HOLDLIST = PRINTONLY
TABLE FILE CAR
SUM
     COMPUTE COLVAL/D12.2 = RCOST;
	 COMPUTE FORMAT/A8 = 'D12.2';
 BY COUNTRY
 BY TOTAL COMPUTE COLID/I1 = 1;
ON TABLE HOLD AS HOLD_1
END
-RUN

TABLE FILE CAR
SUM
     COMPUTE COLVAL/D12.2 = DCOST;
	 COMPUTE FORMAT/A8 = 'D12C';
 BY COUNTRY
 BY TOTAL COMPUTE COLID/I1 = 2;
ON TABLE HOLD AS HOLD_2
END
-RUN

TABLE FILE HOLD_1
SUM
	COLVAL/FORMAT AS ''
ACROSS COLID
BY COUNTRY
MORE
FILE HOLD_2
END


T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
November 28, 2018, 11:38 AM
Brandon Andrathy
Wow! Genius!

Thank you sir!!


WebFOCUS 8204