//DTSGSID9 PROC 00000010 //**************************************************************** 00001700 //* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN //* THE BENEFITS WAGE FILE //**************************************************************** 00001700 //STEP0200 EXEC PGM=DESBD471, DELETE WAGES TO TAX WHG FILE // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR //* //* //* //STEP0300 EXEC PGM=DESBD481, ADD WAGES TO TAX WHG FILE // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSXWGH DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR //DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR //* DD DSN=DOESTAX.CONV.DTS193.W4FILE,DISP=SHR //* DD DSN=DOESTAX.CONV.DCGOV.ICESA.W4TRANS,DISP=SHR //*TSFWTRN DD DSN=DOESTAX.PROD.DTS.W4FILE, //* DISP=(OLD,KEEP,KEEP), //* SPACE=(CYL,(10,5)), //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000) //* //********************************************************************* //* //********************************************************************* //STEP0400 EXEC PGM=SORT,REGION=0K, WWGH WAGE // COND=(0,LT) //SYSOUT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=30') //SORTOUT DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWAGE(+1), // DISP=(,CATLG,DELETE), // UNIT=CART, // VOLUME=(,RETAIN), // LABEL=(1,SL,,,EXPDT=99000), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=23,BLKSIZE=23000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR //* //*