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/JCL/DTSBZ057.jcl
+++ b/JCL/DTSBZ057.jcl
@ -0,0 +1,39 @@
+//DTSBZ057 JOB (UI,4300,3400,T),GIL,CLASS=S,MSGCLASS=X,                 00000010
+//          NOTIFY=ECNTSUP,
+//          USER=#DOADTS
+//*
+// SET MSTNODE='PROD'
+// SET LVLNODE='DEVL'
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.DEVL.PROCLIB                            00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBZ057,    CORRECT 07/3 REPORTS ENTERED
+//             COND=(0,LT),      LATE BY MISTAKE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFWTC  DD  DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//DTSFBTCO DD  DSN=DOESTAX.&MSTNODE..BTC(+1),
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(8192,(100,200),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*
+//DTSFZ057 DD  DSN=DOESTAX.&LVLNODE..FZ057,
+//**           DISP=(,CATLG,DELETE),
+//             DISP=(OLD,KEEP,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(2300,(100,100),RLSE),
+//             DCB=(RECFM=FB,LRECL=23,BLKSIZE=2300)
+//*
+//*********************************************************************