EXECUTE block GETTOTAL processes each CDAM page received from the Control-D or Control-V monitor during report decollation. The invoice total on each page is extracted and totalled.
Figure 265 ON PAGE Statement Example
LIBRARY : CTB.PROD.RULES RULE : ADDTOTAL
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
OWNER M43 GROUP INVOICING
UPDATED 08/08/00 - 11:53:45 BY M43A
DESC CALCULATE AMOUNT DUE THE COMPANY BASED ON INVOICES
OPTIONS
===========================================================================
EXECUTE GETTOTAL UPON SYSOPT='CTDWORK' C
ON PAGE
MODE PG LINECT 0060 DATASTAMP
WHEN LINE 012 - 060 COL 050 - 060 STOP AND/OR
STRING = TOTAL DUE
DO EXTRACT = INVTOTAL
LEVEL 0 LINE +000 COL 0061 - 0075 PROCESS TYP SU
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===========================================================================
EXECUTE CHECKTOT UPON SYSOPT='CTDLAST' C
ON DATA
IF INVTOTAL=DB_INVTOTAL C
PLEASE FILL IN RULE DEFINITION. 12.09.28
Parent Topic |