//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.G0004V00,DISP=SHR 00005099 //*SORTIN DD DSN=DOESTAX.PROD.SOAMONTH(+0),DISP=SHR //* 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,102 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 //*RPT102R1 DD DSN=DOESTAX.PROD.RPT102Z1, //RPT102R1 DD DSN=DOESTAX.PROD.RPT102M1, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=FBM,LRECL=134,BLKSIZE=1340), // SPACE=(TRK,(5,5)) 00100299 //*RPT102R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* //RPT503R2 DD SYSOUT=X 00100299 //RPT325R1 DD SYSOUT=X 00100299 //RPT405R1 DD SYSOUT=* 00100299 //RPT405R2 DD SYSOUT=* 00100299 //*RPC110R2 DD DSN=DOESTAX.PROD.RPC110R2, //* DISP=(NEW,CATLG,DELETE), //* DCB=(RECFM=FBA,LRECL=134,BLKSIZE=1340), //* SPACE=(TRK,(5,5)) //RPT414R1 DD DSN=DOESTAX.PROD.RPT414R1,DISP=SHR 00299 //RPT414R2 DD DUMMY //RPT414R3 DD DUMMY //RPT414R4 DD DUMMY //RPT414R5 DD DUMMY //RPT414R6 DD DUMMY 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 //RPT980R1 DD SYSOUT=* 00100299 //