>U0999 NU1341 S*** NS*37 <C0004
The DO actions are triggered by one of the following:
The accompanying DO statements are never performed. The specified value only indicates when not to perform the DO actions. There is no indication when the DO actions are to be performed.
ON PGMST Example 1
Any program step resulting in condition code C0008 or C0016 is considered OK.
Figure 260 ON PGMST Parameter – Example 1
JOB: PRDKPL01 LIB CTM.PROD.SCHEDULE TABLE: PRODKPL
COMMAND ===> SCROLL===> CRSR
+-------------------------------------------------------------------------+
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM INTERVAL FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST ANYSTEP PROCST UPDA CODES C0008 C0016 A/O
DO OK
DO
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN TIME + DAYS TO URGN
MS
======= >>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<<< =====
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 15.16.03
ON PGMST Example 2
When procedure step UPDA in program step STEP08 finishes executing with a condition code less than C0008, it is considered OK.
Figure 261 ON PGMST Parameter – Example 2
JOB: PRDKPL02 LIB CTM.PROD.SCHEDULE TABLE: PRODKPL
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------------+
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM INTERVAL FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST STEP08 PROCST UPDA CODES <C0008 A/O
DO OK
DO
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN TIME + DAYS TO URGN
MS
====== >>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<<< ====
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 15.16.03
ON PGMST Example 3
When any program step in the step range DF2 (STEP20 – STEP29A) finishes executing with any system or user abend code, except U2030, rerun the job, and shout the indicated message to TSO logon ID P43.
Figure 262 ON PGMST Parameter – Example 3
JOB: PRDKPL03 LIB CTM.PROD.SCHEDULE TABLE: PRODKPL
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------------+
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM INTERVAL FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST *DF2 PROCST CODES S*** U**** NU2030 A/O
DO RERUN
DO SHOUT TO TSO-P43 URGENCY R
= JOB PRDKPL03 ABENDED; THE JOB IS RERUN
DO
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN TIME + DAYS TO URGN
MS
====== >>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<< =====
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 15.16.03
ON PGMST Example 4
After 3 instances of a cyclic job finish executing with a NOTOK status, stop the job from further cycling.
Figure 262a ON PGMST Parameter – Example 4
JOB: PRDKPL03 LIB CTM.PROD.SCHEDULE TABLE: PRODKPL
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------------+
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN 0020 RERUNMEM INTERVAL 0005 M FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST ANYSTEP PROCST CODES FC003 A/O
DO STOPCYCL
DO
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN TIME + DAYS TO URGN
MS
====== >>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<< =====
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 15.16.03
Parent Topic |