>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                                                                     
  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                                                                    
  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                                                                    
  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                                                                    
  SHOUT WHEN           TIME       +     DAYS     TO                URGN   
    MS                                                                    
====== >>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<< =====
                                                                          
 COMMANDS: EDIT, DOC, PLAN, JOBSTAT                               15.16.03
Parent Topic |