EXECUTE block EXTRACT processes reports in class X. Information is extracted from the report and compared with data from a previous report in EXECUTE block PROCESS.
Figure 244 ON CLASS Statement Example
LIBRARY : CTB.PROD.RULES RULE : RUNCHK
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
EXECUTE EXTRACT UPON C
ON CLASS = X EXTWTR DEST FORM
MODE PG LINECT 0060 DATASTAMP
WHEN LINE 004 - 020 COL 001 - 080 STOP AND/OR
STRING = TOTALS:
DO EXTRACT = DB_CURRENT_TOTAL
LEVEL 0 LINE +000 COL +002 - +008 PROCESS TYP
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===========================================================================
EXECUTE PROCESS UPON C
ON DATA
IF (DB_CURRENT_TOTAL - DB_CURRENT_TOTAL@G01)> 10000 C
DO SHOUT TO OPER URGENCY R
= -- REPORT IS OUT OF BALANCE —- CALL 714-5678 - JOHN SMITH
DO TERMINAT = NOTOK COD 1501
DO
PLEASE FILL IN RULE DEFINITION. 15.11.23
Parent Topic |