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/ECNTV518.jcl
+++ b/JCL/ECNTV518.jcl
@ -0,0 +1,33 @@
+//ECNTV518 JOB (UI,4300,3400,T),RQ518.VIEWDIR,                          00000010
+//       CLASS=P,MSGCLASS=X,                                            00000010
+//***    USER=OPCSUB,
+//***    NOTIFY=ECNTZL1,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//     SET LVLPROG='PROD'
+//     SET LVLNODE='PROD'
+//     SET   CALYR='YR2004'
+//     SET   LDEST=U@PRT65
+//     SET   LHOLD='YES'
+//****
+//*   JOB : RE-RUN FOR VIEW DIRECT ANNUAL FILERS RATES
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****                                      REPORT GENERATION
+//**DTSBD800,INC,515,516,521
+//****                                      REPORT RECORDS ARE SORTED
+//STEP0300 EXEC DTSVARPT
+//STEP0100.DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..RATE517.RPT.AN2004,
+//           DISP=SHR
+//STEP0100.PARMIN  DD  *
+DTSBD800,INC,515,516,521
+/*
+//**
+//STEP0100.RPT503R1 DD DUMMY
+//STEP0100.RPT503R2 DD DUMMY
+//**
+//*                                                                     00640000