//ECNTGD1P JOB (UI,4300,3400,T),GIL,CLASS=S,MSGCLASS=X, 00000010 // NOTIFY=ECNTSUP /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //* 00001700 // SET LVLNODE='PROD' 00001700 // SET MSTNODE='PROD' 00001700 //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //STEP0100 EXEC PGM=DTSBZ261, ANNUAL REPORT CORRECTION // COND=(0,LT), // 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') //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*********************************************************************