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/DTSRQ311.jcl
+++ b/JCL/DTSRQ311.jcl
@ -0,0 +1,35 @@
+//DTSRQ311 JOB (UI,4300,3400,T),BE311,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//   SET LVLNODE='PROD'
+//   SET LVDHOLD='YES'
+//   SET   LHOLD='YES'
+//   SET  LR414H='YES'
+//   SET   LDEST=U@PRT65
+//****
+//*    ON REQUEST REPORT DTSBR311 -                                 *
+//*                      FLD REP PYMNT TRN (SPEC. TEST VERS.)
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ311),
+//         DISP=SHR
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSRMEND,RPTGEN='+1'
+//STEP0100.DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)            00630200
+//STEP0100.RPT311R1 DD HOLD=YES                                         00630200
+//STEP0100.RPT311R2 DD HOLD=YES                                         00630200
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*