//*****                                                                 00000010
//**       MERGE BATCH BWTC RECORDS INTO VSAM WTC FILE
//**       MERGE AUDIT WAGE RECORDS INTO VSAM WTC FILE  8/18/12   ZL1
//**       MERGE TDEC  WAGE RECORDS INTO VSAM WTC FILE  1/11/13   ZL1
//*****
//DTSDWTC  PROC
//*****                                                                 00000200
//STEP0100 EXEC DTSBU190             COPY WTC TO FLAT FILE
//*****                                                                 00000200
//STEP0100 EXEC PGM=IDCAMS,          COPY WTC TO FLAT FILE
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
//OUTDD01  DD DSN=&&WTCTRN1,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(75,15),RLSE),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************
//*
//STEP0200 EXEC PGM=IDCAMS,        COPY BWTC TO FIXED LENGTH FILE
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01   DD  DSN=DOESTAX.&MSTNODE..WAGE.BTC,   BWTC FILE
//             DISP=(OLD,DELETE,KEEP),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//         DD  DSN=DOESTAX.&MSTNODE..BX442.WAGE,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//         DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//         DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//OUTDD01  DD DSN=&&WTCTRN1,
//             DISP=(MOD,PASS,DELETE)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0300 EXEC PGM=IDCAMS,         DELETE/DEFINE WTC FILE
//             COND=(0,LT),
//             REGION=0K
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(&MSTDWTC),DISP=SHR
//*
//************************************************************
//STEP0400 EXEC PGM=SORT,                     SORT WTC TRANSACTIONS
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=&&WTCTRN1,
//             DISP=(OLD,PASS,DELETE)
//*
//SORTOUT  DD DSN=&&WTCTRN3,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(75,15),RLSE),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWTC),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//****
//*
//STEP0500 EXEC PGM=IDCAMS,          LOAD VSAM FILE
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=&&WTCTRN3,
//             DISP=(OLD,PASS,DELETE)
//OUTDD01  DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//****