//****                                                                  00000010
//*   RUNS DAILY AFTER TAX UPDATE (DTSPDAY1)                            00001700
//**                                                                    00001700
//DTSIX415 PROC
//**                                                                    00001700
//***************************************************************       00001700
//*  CLEAR THE X415 INPUT FILES FOR NEXT DAY
//***************************************************************       00001700
//STEP0300 EXEC PGM=IDCAMS,          INITIALIZE X150 FILE
//             COND=(0,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X150,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//**
//STEP0310 EXEC PGM=IDCAMS,          INITIALIZE X151 FILE
//             COND=(0,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X151,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//**
//STEP0320 EXEC PGM=IDCAMS,          INITIALIZE X152 FILE
//             COND=(0,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X152,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*
//STEP0330 EXEC PGM=IDCAMS,          INITIALIZE X155 FILE
//             COND=(0,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X155,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0340 EXEC PGM=IDCAMS,          INITIALIZE X144 FILE
//             COND=(0,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X144,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//
//*********************************************************************
//*
//* JOB       : DELETE THE FTP REFUND FILE
//*********************************************************************
//STEP0350 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//RFUNDEXP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//            DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*********************************************************************
//*                                                                |
//* JOB       : CREATE A NEW FTP FILE
//*                                                                |
//*********************************************************************
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//RFUNDINP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//*            DISP=(OLD,KEEP,KEEP),
//             DISP=(,CATLG,DELETE),
//             SPACE=(7500,(10,20),RLSE),
//             DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//*********************************************************************