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/DTSRQ764.jcl
+++ b/JCL/DTSRQ764.jcl
@ -0,0 +1,34 @@
+//DTSRQ764 JOB (UI,4300,3400,T),PROD.JBSRV764,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTJP2,
+//****     TYPRUN=SCAN,
+//****     USER=#DOADTS,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//  SET LVLNODE='PROD'
+//  SET QTRLY='QTR003'
+//****
+//*    EXTRACT DATA FROM THE TAX MASTER FILE(S) AND
+//*    WRITE THE JOB SERVICE DOWNLOAD FILE.
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*          NO REPORT PRODUCED IN THIS JOB.
+//****
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//*
+//STEP0100.DTSFBTCO DD DUMMY
+//STEP0100.DTSFVRO1 DD DUMMY
+//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ764),
+//         DISP=SHR
+//*                        ADD/OVERRIDE DD NAME DTSJSDL FILE
+//****
+//STEP0100.DTSJSDL DD DSN=DOESTAX.&LVLNODE..JS.EXTRACT.&QTRLY.,         00005000
+//             DISP=(NEW,CATLG,DELETE),                                 00006000
+//***          DISP=SHR,                         (IF A RERUN)           00006000
+//             UNIT=SYSDA,                                              00007000
+//             SPACE=(8450,(5000,5000),RLSE),                           00008000
+//             DCB=(RECFM=FB,LRECL=845,BLKSIZE=8450)                    00009000
+//**