//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199 // NOTIFY=ECNTZL1,REGION=0M 00000299 //* 00000499 // SET LVLNODE='DEVL' 00000599 // SET MSTNODE='PROD' 00000699 // SET LVDHOLD='YES' /* VIEW DIRECT JOBS // SET LDEST='LOCAL' // SET PGMNODE='DEVL' 00000799 //PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399 //*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399 //* 00001400 /********************************************************************* 00004549 //STEP0100 EXEC PGM=SORT, 00004600 // COND=(0,LT) 00004700 //SYSOUT DD SYSOUT=* 00004800 //SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099 //*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099 //* 00006399 //SORTOUT DD DSN=&&SRTRPT, 00006899 // DISP=(,PASS,DELETE), 00006999 // UNIT=SYSDA, 00007099 // SPACE=(8192,(1000,1000),RLSE), 00007199 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099 //* 00018000 //STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100 //** TIME=(0,20), 00018299 // COND=(0,LT) 00018300 //SYSOUT DD SYSOUT=* 00018400 //SYSABOUT DD SYSOUT=* 00018500 //SYSUDUMP DD SYSOUT=* 00018600 //*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799 //PARMIN DD * 00018899 DTSBD800,INC,503 00019199 /* 00019599 //** 00019699 //ATLSTIN DD * 00020000 DTSBD800, 00030000 /* 00031000 //** 117 W CLASS 00040099 //DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099 //**** NEED FOR 604 ONLY***** 00051099 //** 00060000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099 // AMP=('BUFNI=5,BUFND=10') 00080000 //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099 // AMP=('BUFNI=5,BUFND=10') 00080000 //DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099 // AMP=('BUFNI=5,BUFND=10') 00080000 //* 00090099 //*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 //* 00100199 //RPT503R1 DD SYSOUT=X 00100299 //RPT503R2 DD SYSOUT=X 00100299 //RPT325R1 DD SYSOUT=X 00100299 //RPT405R1 DD SYSOUT=* 00100299 //RPT405R2 DD SYSOUT=* 00100299 //RPT412R1 DD SYSOUT=* 00100299 //RPT412R2 DD SYSOUT=* 00100299 //RPT412R3 DD SYSOUT=* 00100299 //RPT530R1 DD SYSOUT=* 00100299 //RPT909R8 DD SYSOUT=* 00100299 //RPT909R9 DD SYSOUT=* 00100299 //RPT907R1 DD SYSOUT=* 00100299 //RPT907R2 DD SYSOUT=* 00100299 //RPT316R1 DD SYSOUT=* 00100299 //RPT316R2 DD SYSOUT=* 00100299 //RPT439R1 DD SYSOUT=* 00100299 //RPT439R2 DD SYSOUT=* 00100299 //RPT320R1 DD SYSOUT=* 00100299 //RPT320R2 DD SYSOUT=* 00100299 //RPT320R3 DD SYSOUT=* 00100299 //RPT320R4 DD SYSOUT=* 00100299 //RPT321R1 DD SYSOUT=* 00100299 //RPT321R2 DD SYSOUT=* 00100299 //RPT321R3 DD SYSOUT=* 00100299 //RPT321R4 DD SYSOUT=* 00100299 //RPT332R1 DD SYSOUT=* 00100299 //RPT332R2 DD SYSOUT=* 00100299 //