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/ECNTV125.jcl
+++ b/JCL/ECNTV125.jcl
@ -0,0 +1,37 @@
+//ECNTV125 JOB (UI,4300,3400,T),PROD.RQ125.VIEWDIR,
+//         CLASS=P,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTJP2,
+//****     NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET PRGNODE='PROD'
+//    SET   LHOLD='YES'
+//    SET LVDHOLD='YES'
+//    SET   LDEST=U@PRT65
+//****
+//*    ON REQUEST REPORT DTSBR125 -
+//*                      EMPLOYER ALPHA LIST FOR VIEW-DIRECT
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//*        NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//STEP0100.EXTPARM DD *
+125
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSVQRPT
+//STEP0100.RPT907R1 DD SYSOUT=(Q,DTS907R1),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
+//STEP0100.RPT980R1 DD SYSOUT=(Q,DTS980R1),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
+//STEP0100.RPT991R1 DD DUMMY                                            00631000
+//DOESLBLP.DOESLBL1 DD DUMMY                        /* LABELS           00631000
+//*                                                                     00640000