I am trying to produce a totals line for each column in the report captioned below. I cannot use RECAP, RECOMPUTE, SUMMARIZE as they will not produce fields that I can carry forward in a hold file for future in a program.
Here is the code...
TABLE FILE TF_PRREF2 HEADING CENTER "ECT RATINGS REPORT" "FOR &BEG1 - &END1" "FOR FILE1 " SUM CNT.COUNTER AS 'CNT' TOTANS CORRECT NA WRONG COMPUTE PRCT/I10 = (CORRECT/TOTANS)*100; -*TTOTANS -*TCORRECT -* -*COMPUTE GRADE/A1 = IF (PRCT GE 90) AND (PRCT LE 100) THEN 'A' -* ELSE IF (PRCT GE 80) AND (PRCT LE 89) THEN 'B' -* ELSE IF (PRCT GE 70) AND (PRCT LE 79) THEN 'C' -* ELSE IF (PRCT GE 60) AND (PRCT LE 69) THEN 'F'; -* BY REVIEWTYPE BY MDDEPT NOPRINT BY REVIEWED_MD BY VSTART BY VEND BY VASOF -*ON TABLE HOLD AS FILE1 END -RUN -GOTO OUTT -* -* TABLE FILE FILE1 HEADING CENTER "ECT RATINGS REPORT" "FROM FILE1 " PRINT CNT TOTANS CORRECT NA WRONG COMPUTE PRCT/I10 = (CORRECT/TOTANS)*100; -* BY REVIEWTYPE -*BY MDDEPT BY REVIEWED_MD BY VSTART BY VEND BY VASOF -*ON REVIEWTYPE RECOMPUTE AS '' -*ON TABLE NTOTAL -*ON TABLE HOLD AS FILE2 END -RUN
-* File tomsweb2.fex
TABLE FILE CAR
PRINT SALES RETAIL DEALER
BY COUNTRY BY CAR
ON TABLE HOLD AS TOM FORMAT ALPHA
END
FILEDEF TOM DISK TOM.FTM (APPEND
DEFINE FILE TOM
XCOUNTRY/A10='ZZZZZZZZZZ';
XCAR/A16=' ';
END
TABLE FILE TOM
SUM SALES RETAIL DEALER
BY XCOUNTRY BY XCAR
ON TABLE SAVE AS TOM
END
TABLE FILE TOM
PRINT SALES RETAIL DEALER
BY COUNTRY BY CAR
END
This message has been edited. Last edited by: Danny-SRL,
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
June 05, 2008, 01:46 PM
j.gross
Note to Daniel's approach:
When applying it to your report, the compute
COMPUTE PRCT/I10 = (CORRECT/TOTANS)*100;
should be retained in the second request to correctly summarize the PRCT column.