//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010 // USER=#DOADTS, // NOTIFY=ECNTSUP //* 00001700 // SET LVLNODE='PROD' // SET MSTNODE='PROD' // SET LHOLD='YES' //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //STEP0050 EXEC DTSUTVSM, // BKUPGEN='(+1)' //* 00001700 //* DUE TO PROBLEMS WITH WAGES PROGRAM 325 WAS REMOVED FROM 00001700 //* PROD. JOB DTSBK325 HAS COMPLETE STEPS 8/9/11 ZL1 00001700 //* 00001700 //STEP0100 EXEC PGM=DTSBZ358, /* CORRECT 136946 ALL QUARTERS // COND=(0,LT), /* SHOULD BE ANNUAL. // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') /* //**** //STEP0100 EXEC DTSZX500, // RUNTYPE='OR' //* //STEP0100.EXTPARM DD * 500 /* // //*