Quelle  JOBVAR.REXX

 /* REXX                                                 */                     
 /* STARTET DAUERND JOBS, DIE DIE JOBVARIABLE UMSCHIEßEN */                     
 /*                                                      */                     
   DO J=1 BY 1 TO 1000                                                          
      X=OUTTRAP('MSG.',,'NOCONCAT')                                             
      ADDRESS TSO "SUBMIT 'X2H100.JOB.CNTL(JOBVAR)'"                            
      JOB=SUBSTR(MSG.1,14,8)                                                    
      I=0                                                                       
      DO I=1 BY 1 TO 100000                                                     
        I=I*12/12+1                                                             
      END                                                                       
      MSG.1='INVALID'                                                           
      DO WHILE SUBSTR(MSG.1, 1, 7) = 'INVALID'                                  
         ADDRESS TSO "CANCEL X2H100JO("JOB") PURGE"                             
      END                                                                       
   END