//DTSBX148 PROC RUNTYPE='ONTIME'                                        00000010
//*                                                                     00001700
//***************************************************                   00001700
//*  MATCH W4 TRANSACTIONS TO REPORTS
//***************************************************                   00001700
//*                                                                     00001700
//*****************************************************************
//***
//*****************************************************************
//*  SORT TDEC FILE
//*****************************************************************
//STEP0100 EXEC PGM=SORT,                  SORT BY BATCH/EMP/YRQ/SSN
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
//         DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=&&TDECSRT1,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN    DD  DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
//*
//*****************************************************************
//* EDIT TDEC FILE
//*****************************************************************
//STEP0200 EXEC PGM=DESBD420,
//             PARM='&RUNTYPE.',
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWG2  DD  DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFTDIN DD  DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//*
//DTSFTDO  DD  DSN=&&TDECEDIT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:GIL.DIMATTIA@DC.GOV',
//         'CC:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: NO TDEC WAGES ON MAINFRAME...........ZL1',
//         'FILEDESC: TDEC WAGE REPORT                   ',
//         'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1   DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//*        'CC:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: TDEC WAGES ON MAINFRAME IN ERROR..ZL1',
//         'FILEDESC: TDEC WAGE REPORT                   ',
//         'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1   DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//***********************************************************
//* FIND REPORTS, WRITE TRANSACTIONS
//***********************************************************
//STEP0400 EXEC PGM=DESBD422,
//         COND=(0,LT),
//         REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWG2  DD  DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFITM  DD  DSN=DOESTAX.DEVL.VSAM.ITM,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//DTSFTDIN DD  DSN=&&TDECEDIT,
//             DISP=(OLD,DELETE,DELETE)
//**
//**                           WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW004 DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..W4FILE,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//**                           WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW153 DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..X153,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//**                           WTC WAGES
//DTSFW001 DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGE.BTC,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFPEND DD  DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
//             DISP=(NEW,PASS,DELETE),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//DTSFMISS DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(7800,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=78,BLKSIZE=7800)
//*
//DTSFERR  DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(12100,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=121,BLKSIZE=12100)
//*
//*
//DTSFCNT  DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(3700,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//****************************************************
//**
//STEP0500 EXEC PGM=SORT,                    REBUILD PENDING FILE
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
//             DISP=(OLD,DELETE,DELETE)
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..PENDING,
//**           DISP=(,CATLG,DELETE),
//             DISP=(MOD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN    DD  DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
//*
//****************************************************
//**
//STEP0600 EXEC PGM=IEBGENER,
//         COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: TDEC MISSING REPORTS                   )',
//         'FILEDESC: TDEC MISSING REPORTS               ',
//         'FILENAME: TDEC.ERROR1.TXT')
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
//         DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0700 EXEC PGM=IEBGENER,
//         COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: TDEC WAGE DISCREPANCIES                )',
//         'FILEDESC: TDEC WAGE DISCREPANCIES            ',
//         'FILENAME: TDEC.ERROR2.TXT')
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
//         DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0800 EXEC PGM=IEBGENER,
//         COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: TDEC COUNTS                            )',
//         'FILEDESC: TDEC COUNTS                        ',
//         'FILENAME: TDEC.COUNTS.TXT')
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
//         DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//*********************************************************************
//STEP0900 EXEC PGM=IDCAMS,COND=(0,LT)
//**
//********************************************************************
//***  COPY TDEC WAGE FILE TO ARCHIVE UPDATE FILE.
//**
//********************************************************************
//IFILE  DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//**
//OFILE DD DSN=DOESTAX.CONV.TDECX154.SAVED.&RUNTYPE.(+1),
//      DISP=(NEW,CATLG,DELETE),
//      UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.DEVL.BEN.APPL.PARMLIB(DTSBREPO),DISP=SHR
//********************************************************************
//***  DELETE TDEC DELINQ WAGE FILE(S).
//**
//********************************************************************
//STEP0910 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*
//PDDELINQ DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
//            DISP=(OLD,DELETE,DELETE)
//*
//**************************END OF PROC*******************************