Check the output in output class X. If the extracted total matches the Database total, release the report for printing.
Figure 226 DO SYSOUT Field Example
LIBRARY : CTB.PROD.RULES RULE : RULCURR
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
OWNER N52A GROUP ACCT
UPDATED 08/08/00 - 08:47:05 BY N52A
DESC CHECK WEEKLY ACCOUNTING REPORT
OPTIONS
===========================================================================
EXECUTE TOTALS UPON C
ON CLASS = X EXTWTR DEST FORM
MODE PG LINECT DATASTAMP
WHEN LINE 001 - 060 COL 025 - 029 STOP AND/OR
STRING = ’TOTAL’
DO EXTRACT = TOTAL
LEVEL LINE +000 COL 0031 - 0041 PROCESS TYP
DO
WHEN LINE 001 - 060 COL 025 - 029 STOP AND/OR
STRING =
DO
===========================================================================
EXECUTE CHECK UPON C
ON DATA
IF TOTAL=DB_TOTAL C
DO SYSOUT OPT R PRM FRM
DO
ELSE
DO PRINT = A PROBLEM IS DETECTED; TOTALS DO NOT MATCH F C
DO
(ENTER "ALWAYS", "IF")
===========================================================================
EXECUTE UPON C
ON
======= >>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<< =====
PLEASE FILL IN RULE DEFINITION. 08.59.57
Parent Topic |