//DTSGSIDZ PROC                                                         00000010
//****************************************************************      00001700
//*   BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//*   THE BENEFITS WAGE FILE
//****************************************************************      00001700
//*********************************************************************
//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.TAX09WGH(+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
//*
//****************************************************************      00001700
//*        DD  DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//****
//****  RECORDS ARE ADDED AND DELETED FROM THE MASTER FILE
//****  USE UIBS.WWGH IF NEEDE TO ADD RECRODS FROM OUTSIDE
//****************************************************************      00001700
//STEP0500 EXEC PGM=SORT,                      SORT IN EMPLYER ORDER     00007602
//             COND=(0,LT)                                              00007702
//SYSOUT   DD  SYSOUT=*                                                 00007802
//SORTIN   DD  DSN=DOESTAX.&MSTNODE..BACKUP.TAX09WGH(+1),DISP=SHR
//*        DD  DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//*ORTOUT  DD  DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//SORTOUT  DD  DSN=&&WGESRT1,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=23,BLKSIZE=23000)
//*
//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
//DTSFWGHI DD  DSN=&&WGESRT1,
//             DISP=(OLD,PASS,DELETE)
//*TSFWGHI DD  DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//*
//*TSFWGHO DD  DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//DTSFWGHO DD  DSN=&&WGEOUT2,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=23,BLKSIZE=23000)
//*
//*TSFWESQ DD  DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//DTSFWESQ 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,                          SORT BY EMP           00790055
//             COND=(0,LT)                                              00800055
//SYSOUT   DD  SYSOUT=*                                                 00810055
//SYSPRINT DD  SYSOUT=*                                                 00820055
//*ORTIN   DD  DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//*ORTOUT  DD  DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//SORTIN   DD  DSN=&&WGEOUT2,                                           00830055
//             DISP=(OLD,DELETE,DELETE)                                 00840055
//SORTOUT  DD  DSN=&&WGESRT2,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=23,BLKSIZE=23000)
//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
//*TSFWGIN DD  DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//DTSFWGIN DD  DSN=&&WGESRT2,
//             DISP=(OLD,PASS,DELETE)
//*
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.TAXWGH,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(DTSDWWGH),            00760053
//             DISP=SHR                                                 00770053
//*                                                                     00780053
//STEP0700 EXEC PGM=IDCAMS                        LOAD VSAM FILE        00740053
//SYSPRINT DD  SYSOUT=*                                                 00750053
//*NDD01   DD  DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//INDD01   DD  DSN=&&WGESRT2,
//             DISP=(OLD,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=23,BLKSIZE=23000)
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..VSAM.TAXWGH,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,                  SORT WESQ - EMP/SSN/QTR       00790055
//             COND=(0,LT)                                              00800055
//SYSOUT   DD  SYSOUT=*                                                 00810055
//SYSPRINT DD  SYSOUT=*                                                 00820055
//*ORTIN   DD  DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//*ORTOUT  DD  DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//SORTIN   DD  DSN=&&WESQOUT1,                                          00830055
//             DISP=(OLD,DELETE,DELETE)                                 00840055
//SORTOUT  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
//*TSFWESI DD  DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//DTSFWESI DD  DSN=&&WESQSRT1,
//             DISP=(OLD,DELETE,DELETE)
//*
//*TSFWESO DD  DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//DTSFWESO 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,                  SORT WESQ - EMP/QTR/SSN       00790055
//             COND=(0,LT)                                              00800055
//SYSOUT   DD  SYSOUT=*                                                 00810055
//SYSPRINT DD  SYSOUT=*                                                 00820055
//*ORTIN   DD  DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//SORTIN   DD  DSN=&&WESQOUT2,                                          00830055
//             DISP=(OLD,DELETE,DELETE)                                 00840055
//*ORTOUT  DD  DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//SORTOUT  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
//*TSFWESI DD  DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//DTSFWESI DD  DSN=&&WESQSRT2,
//             DISP=(OLD,DELETE,DELETE)
//*
//*TSFWESO DD  DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//DTSFWESO 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(DTSDWWSQ),DISP=SHR    00760053
//*                                                                     00780053
//STEP1300 EXEC PGM=IDCAMS                        LOAD VSAM FILE        00740053
//SYSPRINT DD  SYSOUT=*                                                 00750053
//*NDD01   DD  DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//INDD01   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.TAXWESQ,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
//*********************************************************************