72 lines
3.1 KiB
Plaintext
72 lines
3.1 KiB
Plaintext
//**** 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)
|
|
//*
|
|
//*********************************************************************
|