//DESBZ300 PROC                                                         00000010
//****************************************************************      00001700
//*   BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//*   THE BENEFITS WAGE FILE
//****************************************************************      00001700
//STEP0100 EXEC PGM=DESBD300,     EXTRACT DATA FROM WAGE FILE
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFNAME DD  DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//WGEOUT1  DD  DSN=&&WGEOUT1,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*                                                                     00014000
//DTSFVRO1 DD  DSN=&&RPT1,                                              00014000
//             DISP=(NEW,PASS,DELETE),                                  00014000
//             UNIT=SYSDA,                                              00014000
//             SPACE=(8192,(500,200),RLSE),                             00014000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00014000
//*                                                                     00014000
//****************************************************************      00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',     SORT IN EMPLYER ORDER     00007602
//             COND=(0,LT)                                              00007702
//SYSOUT   DD  SYSOUT=*                                                 00007802
//SORTIN   DD  DSN=&&WGEOUT1,                                           00007917
//             DISP=(OLD,DELETE,DELETE)                                 00008002
//SORTOUT  DD  DSN=&&WGESRT1,                                           00008417
//             DISP=(,PASS,DELETE),                                     00008502
//             UNIT=SYSDA,                                              00008602
//             SPACE=(18000,(8000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//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)
//*
//DTSFWGHO DD  DSN=&&WGEOUT2,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(18000,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//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,PARM='VLTEST=0',         SORT BY EMP           00790055
//             COND=(0,LT)                                              00800055
//SYSOUT   DD  SYSOUT=*                                                 00810055
//SYSPRINT DD  SYSOUT=*                                                 00820055
//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=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
//STEP0500 EXEC PGM=DESBD315,     MERGE SUCCESSOR RECORDS
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*                                                                     00001700
//DTSFWGHI DD  DSN=&&WGESRT2,
//             DISP=(OLD,DELETE,DELETE)
//*
//DTSFWGHO 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=&&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)
//*
//*
//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=&&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
//DTSFWESI DD  DSN=&&WESQSRT1,
//             DISP=(OLD,DELETE,DELETE)
//*
//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,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN       00790055
//             COND=(0,LT)                                              00800055
//SYSOUT   DD  SYSOUT=*                                                 00810055
//SYSPRINT DD  SYSOUT=*                                                 00820055
//SORTIN   DD  DSN=&&WESQOUT2,                                          00830055
//             DISP=(OLD,DELETE,DELETE)                                 00840055
//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
//DTSFWESI DD  DSN=&&WESQSRT2,
//             DISP=(OLD,DELETE,DELETE)
//*
//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(DTSDDWSQ),DISP=SHR    00760053
//*                                                                     00780053
//STEP1300 EXEC PGM=IDCAMS                        LOAD VSAM FILE        00740053
//SYSPRINT DD  SYSOUT=*                                                 00750053
//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.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
//*********************************************************************