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/DTSBX215.jcl
+++ b/JCL/DTSBX215.jcl
@ -0,0 +1,26 @@
+//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X,          00000010
+//*         TYPRUN=SCAN,
+//           USER=#DOADTS,
+//          NOTIFY=ECNTSUP,
+//          REGION=0M
+//*
+//*      DAILY BATCH CONTROL SUMMARY REPORT RECORDS
+//*
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*
+//*                                                                     00070000
+//STEP0200 EXEC DTSBX215
+//*                                                                     00014000
+//*****************************************
+//STEP0210 EXEC PGM=FTP,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
+//