DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
98
Procs/DTSRINIT
Normal file
98
Procs/DTSRINIT
Normal file
@ -0,0 +1,98 @@
|
||||
//****************************************************************** 00001700
|
||||
//**DTSRINIT PROC
|
||||
//****************************************************************** 00001700
|
||||
//* THIS PROC WILL DELETE ALL EXTERNAL FILES BEFORE RESTORING FILES 00001700
|
||||
//* USED IN THE DAILY RUN DTSPDAY1 00001700
|
||||
//****************************************************************** 00001700
|
||||
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//CONVBTC DD DSN=DOESTAX.CONV.BTC,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//WAGEBTC DD DSN=DOESTAX.CONV.WAGE.BTC,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX210 DD DSN=DOESTAX.CONV.FTP.BX210,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX212 DD DSN=DOESTAX.CONV.FTP.BX212,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX216 DD DSN=DOESTAX.CONV.FTP.BX216,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSR202 DD DSN=DOESTAX.CONV.RPT.R202,DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX101 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0610 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0620 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0630 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0640 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0650 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0660 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0670 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0680 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0690 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX149 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0710 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0720 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX150 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX151 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX152 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0740 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSBX155 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0800 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*********************************************************************
|
||||
//STEP0900 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(31800,(900,900),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user