//****                                                                  00000010
//*   PROCESS ESSP ACH    PAYMENTS                                      00001700
//*                                                                     00001700
//*   RUNS DAILY TAX UPDATE (DTSPDAY1)                                  00001700
//**                                                                    00001700
//DTSBXACH PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//*ORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD020415,DISP=SHR
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=DOESTAX.&IMPNODE..ESSP.RPTACH(+1),
//             DISP=(NEW,CATLG,DELETE),
//*            DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00009000
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX438),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX438,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD  DSN=DOESTAX.&IMPNODE..ESSP.RPTACH(+1),
//*            DISP=OLD                                                 00006000
//             DISP=(OLD,KEEP,KEEP)
//*                                                                     00001700
//DTSPX145 DD  DUMMY                                                    00005000
//*TSPX145 DD  DSN=&&PENDX140,                                          00005000
//*            DISP=(NEW,PASS,DELETE),                                  00006000
//*            UNIT=SYSDA,                                              00007000
//*            SPACE=(8192,(1000,200),RLSE),
//*            DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*                                                                     00001700
//DTSFBTCO DD  DUMMY                                                    00005000
//*TSFBTCO DD  DSN=DOESTAX.&IMPNODE..X438.BTC,                          00005000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//*            DISP=SHR,                                                00006000
//*            UNIT=SYSDA,                                              00007000
//*            SPACE=(8192,(100,200),RLSE),
//*            DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X438RPT1 DD  DSN=DOESTAX.&LVLNODE..ESSP.X438PAID.TXT(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X438RPT2 DD  DSN=DOESTAX.&LVLNODE..ESSP.X438PEND.TXT(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0),                00409000
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),                                    00410000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//         'CC:MARGARET.HERNANDEZ@DC.GOV',
//         'CC:ESAYAS.LEMMA@DC.GOV',
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//         'CC:PANKAJ.SHARMA@SAGITEC.COM',
//*        'CC:SIVA.SAMBASIVAM@SAGITEC.COM',
//         'SUBJECT: ESSP DAILY ACH PAYMENTS RECEIVED....ZL1',
//         'FILEDESC: ESSP ACH PAYMENTS FOR DUTAS              ',
//         'FILENAME:ESSP_DUTAS_ACHPAYMTS.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..ESSP.X438PAID.TXT(+1),DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS
//            COND=(4,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=DOESTAX.&IMPNODE..ESSP.ACHOQTR,
//*            DISP=(NEW,CATLG,DELETE),
//             DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00009000
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSXO438),DISP=SHR
//*
//STEP0600 EXEC PGM=DTSBX438,
//             COND=(4,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD  DSN=DOESTAX.&IMPNODE..ESSP.ACHOQTR,
//             DISP=OLD                                                 00006000
//*                                                                     00001700
//DTSPX145 DD  DSN=&&PENDX140,                                          00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(1000,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*                                                                     00001700
//DTSFBTCO DD  DSN=DOESTAX.&IMPNODE..ESSP.X438.BTC,                     00005000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X438RPT1 DD  DUMMY
//*438RPT1 DD  DSN=DOESTAX.&LVLNODE..X438PAID.TXT,
//*            DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//*            SPACE=(30000,(100,200),RLSE),
//*            DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X438RPT2 DD  DUMMY
//*438RPT2 DD  DSN=DOESTAX.&LVLNODE..X438PEND.TXT,
//*            DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//*            SPACE=(30000,(100,200),RLSE),
//*            DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0),                00409000
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),                                    00410000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//STEP0700 EXEC PGM=IDCAMS,           COPY X140 PENDING TO GDG
//             COND=(4,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=&&PENDX140,
//             DISP=(OLD,DELETE,DELETE),                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.CONV.ESSP.PENDING.ACHOQTR,
//*            DISP=(,CATLG,DELETE),
//             DISP=SHR,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN    DD  DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//**                                                                    00001700
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS
//            COND=(4,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=DOESTAX.&IMPNODE..ESSP.ACHIQTR,
//*            DISP=(NEW,CATLG,DELETE),
//             DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00009000
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSXI438),DISP=SHR
//*