If the string BRANCH NOT BALANCED is found, the report decollating mission should finish NOTOK.
Figure 257 DO NOTOK Parameter Example
----- CONTROL-D/V CATEGORY DAILY JOB PLUPDT02 ----------- (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES 00 LVL 90 USER UNIDENT DEST MAX COPIES 05
===========================================================================
ON CLASS = D EXTWTR DEST FORM
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00002 - 00002 COL 00002 - 00040 PRINT REF NXT CT AND/OR A
STRING = UPDATE APPLICATION 2
WHEN LINE 00045 - 00060 COL 00025 - 00050 PRINT REF NXT CT N AND/OR
STRING = BRANCH NOT BALANCED
DO NOTOK
DO SHOUT TO TSO-SHFT-MNGR URGENCY R
= UPDATE OF ACCOUNTING DATA BASE NOT BALANCED
DO NAME = DB ACCOUNTING UPDATE
DO USER = ACCOUNTING LVL LINE COL -
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
DO BACKUP = BKP0031D
DO
WHEN LINE 00001 - 00001 COL 00001 - 00001 PRINT REF NXT CT AND/OR
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Parent Topic |