//******************************************************************    00001700
//**DTSEINIT PROC
//******************************************************************    00001700
//*  THIS PROC WILL CREATE A NEW EMPTY FILES OF ALL ESSP FILES          00001700
//*  USED IN THE DAILY RUN DTSPDAY1                                     00001700
//******************************************************************    00001700
//** DELETE AND CREATE PROFILE NAME DETERMINATION AND PAYMENT BTC       00001700
//******************************************************************    00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE420 DD  DSN=DOESTAX.PROD.BX420.BTC,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//STEP0110 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE420 DD  DSN=DOESTAX.PROD.BX420.BTC(+1),
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//******************************************************************    00001700
//** DELETE AND CREATE MAILING UPDATE REGISTRATION FILE                 00001700
//******************************************************************    00001700
//STEP0111 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE427 DD  DSN=DOESTAX.PROD.ESSP.X427.BTC,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//STEP0112 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE427 DD  DSN=DOESTAX.PROD.ESSP.X427.BTC,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*********************************************************************
//** DELETE AND CREATE ESSP REPORTS BTC FILE AFTER PAYD1
//*********************************************************************
//STEP0120 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE422 DD  DSN=DOESTAX.PROD.BX422.BTC,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0130 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFE422 DD  DSN=DOESTAX.PROD.BX422.BTC,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//******************************************************************    00001700
//**          DELETE AND CREATE X102 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0140 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX102 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0150 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX102 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//*********************************************************************
//**          DELETE AND CREATE X104 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0160 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX104 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0170 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX104 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//******************************************************************    00001700
//**          DELETE AND CREATE X106 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0180 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX106 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0190 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX106 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//*********************************************************************
//**          DELETE AND CREATE X108 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX108 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0210 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX108 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//******************************************************************    00001700
//**          DELETE AND CREATE X110 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0220 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX110 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0230 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX110 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//*********************************************************************
//**          DELETE AND CREATE X120 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0240 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX120 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0250 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX120 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//******************************************************************    00001700
//**          DELETE AND CREATE X140 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0260 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0270 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//*********************************************************************
//**          DELETE AND CREATE X144 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0280 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0290 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//*********************************************************************
//**          DELETE AND CREATE X145 WEB PROCESSED RECORDS
//*********************************************************************
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
//             DISP=(OLD,DELETE,DELETE)
//*
//STEP0310 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD  DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
//             DISP=(NEW,CATLG,CATLG),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(10,5)),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*********************************************************************