DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

98
Procs/DTSRINIT Normal file
View 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)
//*********************************************************************