DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/Procs/DTSUD998
+++ b/Procs/DTSUD998
@ -0,0 +1,65 @@
+//*****
+//*        DELETE/DEFINE AND INITIALIZE MASTER FILES
+//*****
+//DTSUD998 PROC
+//****
+//STEP0100 EXEC PGM=IDCAMS,         DELETE/DEFINE MSTA FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSDDMSA),DISP=SHR
+//*
+//STEP0120 EXEC PGM=DTSBD998,       INITIALIZE MSTA FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTA DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSIMSTA),DISP=SHR
+//****
+//****
+//STEP0200 EXEC PGM=IDCAMS,         DELETE/DEFINE MSTB FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSDDMSB),DISP=SHR
+//*
+//STEP0220 EXEC PGM=DTSBD998,       INITIALIZE MSTB FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTB DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTB,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSIMSTB),DISP=SHR
+//****
+//****
+//STEP0500 EXEC PGM=IDCAMS,         DELETE/DEFINE MSTH FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSDDMSH),DISP=SHR
+//*
+//STEP0520 EXEC PGM=DTSBD998,       INITIALIZE MSTH FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTH DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTH,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSIMSTH),DISP=SHR
+//*
+//****
+//STEP0600 EXEC PGM=IDCAMS,         DELETE/DEFINE MSTI FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSDDMSI),DISP=SHR
+//*
+//STEP0620 EXEC PGM=DTSBD998,       INITIALIZE MSTI FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTI DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTI,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSIMSTI),DISP=SHR
+//*
+//****