//****                                                                  00000010
//*   PROCESS TDEC REPORT PAYMENTS                                      00001700
//*                                                                     00001700
//*   RUNS DAILY TAX UPDATE (DTSPDAY1)                                  00001700
//**                                                                    00001700
//DTSBXPAY PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=SORT,     SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,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..TDEC.DOES.RPTPAY(+1),DISP=SHR
//*            DISP=(NEW,CATLG,DELETE),
//*            DISP=SHR,
//*            UNIT=SYSDA,
//*            SPACE=(30720,(1000,1000),RLSE),                          00008000
//*            DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)                    00009000
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX437,
//             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..TDEC.DOES.RPTPAY(+1),
//             DISP=SHR                                                 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.ZX437.BTC,                     00005000
//*             DISP=(NEW,CATLG,DELETE),                                 00006000
//             DISP=SHR,                                                00006000
//*            DISP=MOD,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X437RPT1 DD  DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X437RPT2 DD  DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.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(+1),                00409000
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),                                    00410000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
//***********************************************************
//*
//STEP0400 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.X437.PAY(+1),
//             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
//*
//*********************************************************************
//*
//STEP0410 EXEC PGM=IDCAMS,           COPY X144 PENDING TO GDG
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=&&PENDX144,
//             DISP=(OLD,DELETE,DELETE),                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.DEVL.PENDING.X435.X144,
//             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
//*
//*********************************************************************
//STEP0420 EXEC PGM=IDCAMS,           COPY X145 PENDING TO GDG
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=&&PENDX145,
//             DISP=(OLD,DELETE,DELETE),                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.DEVL.PENDING.X435.X145,
//            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
//*
//*********************************************************************
//