Hi All,

I want to have a report heading show the report totals. The issue I'm having is with having it show with commas. For example...

TABLE FILE CAR
SUM
SALES
BY
MODEL
HEADING
"THESE ARE THE SALE TOTALS END

This provides me with the total sales # just fine however there are no commas. I also tried making SALES a /D12...still the report has the commas but the heading does not.

I've looked all over and cannot find a solution to this on the forums.

Thanks for any help!

This message has been edited. Last edited by: TomS.,

DEFINE FILE CAR
SALES1/D12.2=SALES;
END

TABLE FILE CAR
SUM
SALES/D12.2
BY
MODEL
HEADING
"THESE ARE THE SALE TOTALS END

Please post your code between the code tags.

Hi TomS,

Check, it works for you

FILEDEF XYZ DISK BASEAPP/XYZ.TXT (LRECL 12
-RUN
TABLE FILE CAR
SUM
SALES NOPRINT
COMPUTE SALESD/D6 = SALES; NOPRINT
COMPUTE SALESB/A9 = FTOA(SALES, '(D6)', 'A9'); 
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS XYZ
END
-RUN
-READ XYZ &TEST.A9.
-TYPE &TEST
TABLE FILE CAR
SUM SALES
BY MODEL
HEADING
"Total Sales &TEST.EVAL"
END  

A field in a HEADING, SUBHEADING or whatever, will use the original format. Using a format change on a verb object affects only that verb object.
Using a DEFINE is one approach, a COMPUTE is another. However from your code snippet you will NOT get total sales, only the first value for SALES.
You can try:

TABLE FILE CAR
SUM COMPUTE C_SALES/I9C =SALES; NOPRINT
SUM 
SALES
BY 
MODEL
HEADING
"THESE ARE THE SALE TOTALS <C_SALES"
END

or

DEFINE FILE CAR
D_SALES/I10C=SALES;
END

TABLE FILE CAR
SUM 
SALES/I10C
BY 
MODEL
HEADING
"THESE ARE THE SALE TOTALS <TOT.D_SALES"
END

Doing the define first proved to be the solution.

Thanks all!
Tom

This message has been edited. Last edited by: TomS.,