//****                                                                  00000010
//*   PROCESS ESSP PENDING DATA FILES EACH DAY                          00001700
//*                                                                     00001700
//*   RUNS AFTER JOB DTSBXRPT COMPLETES SUCESSFULLY 01/04/15    ZL1     00001700
//**                                                                    00001700
//DTSNXPEN PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.PROD.ESSP.PENDING.X140,DISP=SHR              00005000
//         DD  DSN=DOESTAX.PROD.ESSP.PENDING.X145,DISP=SHR              00005000
//*
//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..TDECESSP.PENPAY(+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.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX419,
//             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')
//***
//WEBREG   DD  DSN=DOESTAX.&IMPNODE..TDECESSP.PENPAY(+1),
//             DISP=OLD                                                 00006000
//*                                                                     00001700
//PENDX140 DD  DSN=DOESTAX.CONV.ESSP.PENDX140.BXPEN,                    00005000
//*            DISP=(,CATLG,DELETE),                                    00006000
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*                                                                     00001700
//PENDX144 DD  DSN=DOESTAX.CONV.ESSP.PENDX144.BXPEN,                    00005000
//*            DISP=(,CATLG,DELETE),                                    00006000
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(50,10),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*                                                                     00001700
//PENDX145 DD  DSN=DOESTAX.CONV.ESSP.PENDX145.BXPEN,                    00005000
//*            DISP=(,CATLG,DELETE),                                    00006000
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(50,10),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*                                                                     00001700
//X435BTC  DD  DSN=DOESTAX.PROD.ESSP.X435.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)
//*
//WAGETEMP DD  DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT  DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//DTSFW4GE DD  DSN=DOESTAX.&LVLNODE..ESSP.X435.W4FILE,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//BX214422 DD  DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD  DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//X435RPT1 DD  DSN=DOESTAX.&LVLNODE..ESSP.X435PAID.TXT(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X435RPT2 DD  DSN=DOESTAX.&LVLNODE..ESSP.X435PEND.TXT(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//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 INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//*        'CC:GERALD.SMART@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//*        'CC:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: NO ESSP FTP FILES TODAY ON MAINFRAME......ZL1',
//         'FILEDESC: DOES TDEC  PROCESSING FOR ESSP            ',
//         'FILENAME:NO_ESSP_DUTAS_FILES.TXT')
//SYSUT1   DD DSN=DOESTAX.&EXTNODE..ESSP.NOWEBRG.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:GERALD.SMART@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//*        'CC:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
//         'FILEDESC: ESSP DUTAS ERROR REPORT                   ',
//         'FILENAME:ERROR_ESSP_DUTAS.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//STEP0351 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//DTSDX140 DD  DSN=DOESTAX.PROD.ESSP.PENDING.X140,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0355 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//DTSDX144 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X144,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0361 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//DTSDX145 DD  DSN=DOESTAX.PROD.ESSP.PENDING.X145,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0400 EXEC PGM=IDCAMS,           COPY X140 PENDING TO GDG
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=DOESTAX.CONV.ESSP.PENDX140.BXPEN,
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.PROD.ESSP.PENDING.X140(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=SHR,
//             SPACE=(25600,(1000,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=DOESTAX.CONV.ESSP.PENDX144.BXPEN,
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(1000,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.CONV.ESSP.PENDING.X144(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=SHR,
//             SPACE=(25600,(3500,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=DOESTAX.CONV.ESSP.PENDX145.BXPEN,
//             DISP=SHR,                                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.PROD.ESSP.PENDING.X145(+1),
//             DISP=(,CATLG,DELETE),
//*            DISP=SHR,
//             SPACE=(25600,(1000,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN    DD  DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//
//******************************************************************
//** DELETE AND CREATE FILES USED BY PENDING  PROC DTSBXPEN
//******************************************************************
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X140,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0601 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X140(+1),
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//******************************************************************
//STEP0602 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X144,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0603 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X144(+1),
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//******************************************************************
//STEP0604 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X145,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0606 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD  DSN=DOESTAX.CONV.ESSP.PENDING.X145(+1),
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*