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/DTSBZ263
+++ b/Procs/DTSBZ263
@ -0,0 +1,32 @@
+//DTSBZ263 PROC                                                         00000010
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBZ263,     CONVERT WTC FILE
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//**
+//OLDWTCI  DD  DSN=DOESTAX.&LVLNODE..VSAM.WTX,DISP=SHR,                 00005000
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//NEWWTCO  DD  DSN=&&BZ263,                                             00005000
+//             DISP=(NEW,PASS,DELETE),                                  00006000
+//             UNIT=SYSDA,                                              00007000
+//             SPACE=(1280,(2000,5000),RLSE),                           00008000
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=1280)                    00009000
+//*
+//STEP0100 EXEC PGM=IDCAMS,         DELETE/DEFINE WTC FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWTC),DISP=SHR
+//*
+//*******************************************************************
+//STEP0300 EXEC PGM=IDCAMS          LOAD VSAM.WTC
+//SYSPRINT DD  SYSOUT=*
+//INDD01   DD  DSN=&&BZ263,DISP=(OLD,DELETE,DELETE)
+//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=30')
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*