//UTB00X   JOB NOTIFY=&SYSUID,TIME=(,2)                                  
//JOBLIB    DD DSN=UTB00.CA01.LOADLIB,DISP=SHR                           
//STEG1   EXEC PGM=FARTYG3                                               
//SYSOUT    DD SYSOUT=*                                                  
//FARTINFO  DD DSN=UTB00.CA01.COBDATA(FARTINFO),DISP=SHR                 
//FARTRAPP  DD SYSOUT=*                                                  
//FARTFEL   DD SYSOUT=*                                                  
//FARTSORT  DD DSN=UTB00.CA01.COBDATA(FARTSORT),DISP=SHR                 
//FARTREG   DD DSN=UTB00.CA01.FARTREG.RRDS,DISP=SHR                      
//FARTKOST  DD DSN=UTB00.CA01.FARTYG.KOSTNAD.GDG(+1),DISP=(,CATLG),      
//             LIKE=UTB00.CA01.FARTMALL                                  
//FARTKNYA  DD SYSOUT=*                                                  
//FARTTYP   DD DSN=UTB00.CA01.COBDATA(FARTTYP),DISP=SHR                  
//FARTTRAN  DD *                                                         
01 02 05                                                                 
03 15 10                                                                 
03 05 07                                                                 
//   IF STEG1.RC = 66 THEN                                               
//STEG2 EXEC PGM=IEFBR14                                                 
//TABORT  DD DSN=*.STEG1.FARTKOST,DISP=(OLD,DELETE)                      
//   ENDIF