//UTB00X   JOB NOTIFY=&SYSUID,TIME=(,2)                                  
//JOBLIB    DD DSN=UTB00.CA01.LOADLIB,DISP=SHR                          
//FARTPROC  PROC KOSTNUM=0                                           
//STEG1   EXEC PGM=FARTYG2                                              
//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(&KOSTNUM),             
//             DISP=OLD                                                 
//FARTTYP   DD DSN=UTB00.CA01.COBDATA(FARTTYP),DISP=SHR                 
//        PEND                                                          
//SUPG6   EXEC FARTPROC,KOSTNUM='-2'