//DESBDGSI PROC 00000010 //**************************************************************** 00001700 //* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN //* THE BENEFITS WAGE FILE //**************************************************************** 00001700 //STEP0200 EXEC PGM=DESBD470, 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.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR //* //* //* //STEP0300 EXEC PGM=DESBD480, 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.WGH,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.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=30') //SORTOUT DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1), // DISP=(,CATLG,DELETE), // UNIT=CART, // VOLUME=(,RETAIN), // LABEL=(1,SL,,,EXPDT=99000), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=18,BLKSIZE=18000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR //* //**** //**************************************************************** 00001700 //STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602 // COND=(0,LT) 00007702 //SYSOUT DD SYSOUT=* 00007802 //SORTIN DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1),DISP=SHR // DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR //SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202 //* 00009302 //**************************************************************** 00001700 //STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE // COND=(0,LT), FIND SUCCESSOR IF ANY // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //* 00001700 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700 //*TSFWGHI DD DSN=&&WGESRT1, //* DISP=(OLD,PASS,DELETE) //DTSFWGHI DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR //* //DTSFWGHO DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR //*TSFWGHO DD DSN=&&WGEOUT2, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(18000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) //* //DTSFWESQ DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR //*TSFWESQ DD DSN=&&WESQOUT1, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //* //DTSFVRO1 DD DSN=&&RPT2, // DISP=(NEW,PASS,DELETE), // UNIT=SYSDA, // SPACE=(8192,(1000,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //**************************************************************** 00001700 //STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055 // COND=(0,LT) 00800055 //SYSOUT DD SYSOUT=* 00810055 //SYSPRINT DD SYSOUT=* 00820055 //SORTIN DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR //SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR //*ORTIN DD DSN=&&WGEOUT2, 00830055 //* DISP=(OLD,DELETE,DELETE) 00840055 //*ORTOUT DD DSN=&&WGESRT2, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(18000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055 //* //**************************************************************** 00001700 //*TEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS //* COND=(0,LT), //* REGION=4096K //*YSOUT DD SYSOUT=* //*YSABOUT DD SYSOUT=* //*YSABEND DD SYSOUT=* //* 00001700 //*TSFWGHI DD DSN=&&WGESRT2, //* DISP=(OLD,DELETE,DELETE) //* //*TSFWGHO DD DSN=&&WGEOUT3, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(18000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) //* //**************************************************************** 00001700 //STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053 // COND=(0,LT), 00780053 // REGION=4096K //SYSOUT DD SYSOUT=* 00750053 //SYSPRINT DD SYSOUT=* 00750053 //SYSABOUT DD SYSOUT=* 00750053 //SYSABEND DD SYSOUT=* 00750053 //DTSFWGIN DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR //*TSFWGIN DD DSN=&&WGEOUT3, //* DISP=(OLD,PASS,DELETE) //* //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055 // AMP=('BUFNI=5,BUFND=30') 00860055 //* //DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE, // DISP=(OLD,KEEP,KEEP) //DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ, // DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, // SPACE=(14,(14,14),RLSE), // DCB=(RECFM=FB,LRECL=14,BLKSIZE=14) //* //**************************************************************** 00001700 //STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053 //SYSPRINT DD SYSOUT=* 00750053 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053 // DISP=SHR 00770053 //* 00780053 //STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053 //SYSPRINT DD SYSOUT=* 00750053 //INDD01 DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR //*NDD01 DD DSN=&&WGEOUT3, //* DISP=(OLD,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(18000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) //OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055 // AMP=('BUFNI=5,BUFND=30') 00860055 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053 // DISP=SHR 00770053 //********************************************************************* //* //STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055 // COND=(0,LT) 00800055 //SYSOUT DD SYSOUT=* 00810055 //SYSPRINT DD SYSOUT=* 00820055 //SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR //SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR //*ORTIN DD DSN=&&WESQOUT1, 00830055 //* DISP=(OLD,DELETE,DELETE) 00840055 //*ORTOUT DD DSN=&&WESQSRT1, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055 //* //**************************************************************** 00001700 //STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ // COND=(0,LT), // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //* 00001700 //DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR //*TSFWESI DD DSN=&&WESQSRT1, //* DISP=(OLD,DELETE,DELETE) //* //DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR //*TSFWESO DD DSN=&&WESQOUT2, //** DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //* //* //STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055 // COND=(0,LT) 00800055 //SYSOUT DD SYSOUT=* 00810055 //SYSPRINT DD SYSOUT=* 00820055 //SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR //*ORTIN DD DSN=&&WESQOUT2, 00830055 //* DISP=(OLD,DELETE,DELETE) 00840055 //SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR //*ORTOUT DD DSN=&&WESQSRT2, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055 //* //**************************************************************** 00001700 //STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS // COND=(0,LT), // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //* 00001700 //DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR //*TSFWESI DD DSN=&&WESQSRT2, //* DISP=(OLD,DELETE,DELETE) //* //DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR //*TSFWESO DD DSN=&&WESQOUT3, //* DISP=(NEW,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //* //**************************************************************** 00001700 //STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053 //SYSPRINT DD SYSOUT=* 00750053 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053 //* 00780053 //STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053 //SYSPRINT DD SYSOUT=* 00750053 //INDD01 DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR //*NDD01 DD DSN=&&WESQOUT3, //* DISP=(OLD,DELETE,DELETE), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055 // AMP=('BUFNI=5,BUFND=30') 00860055 //*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055 //* DISP=(OLD,KEEP,KEEP), //* UNIT=SYSDA, //* SPACE=(25000,(8000,5000),RLSE), //* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053 // DISP=SHR 00770053 //*********************************************************************