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/DTSRQ704.jcl
+++ b/JCL/DTSRQ704.jcl
@ -0,0 +1,111 @@
+//DTSRQ704 JOB (UI,4300,3400,T),PROD.FUTA.CERT2,                        00000010
+//       CLASS=P,MSGCLASS=X,                                            00000010
+//*      USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//****
+//*  FUTA CERTIFICATION - PART 1 (RUNRQ701)  - CANC 3 (RUNRQ702)
+//*                     - PART 2 (THIS JOB)  - CANC 4 (DTSRQ706) (ZL1)
+//****
+//*        (CHANGE CALENDAR YEAR AS NEEDED)
+//****
+//  SET FISCALYR='CY2024'
+//  SET LVLNODE='PROD'
+//  SET   LHOLD='YES'
+//****
+//* JOB   : FUTA CERTIFICATION - PART 2
+//****
+//*       : RPT704R1 SUCCESSFUL FUTA CERTIFICATIONS LIST - VIEW DIRECT
+//*         RPT705R1 FAILED     FUTA CERTIFICATIONS LIST - VIEW DIRECT
+//*         RPT708R1 POTENTIAL  FUTA NON-FEDERAL FILERS LIST
+//*       : RPT702   FUTA CERTIFICATION FILE-OUT ON DISK
+//*         RPT706   FUTA NON-FEDERAL FILERS FILE-OUT ON DISK
+//*         DTSFZ50  PRT 1ST 50 ZERO CERTIFICATION REPLY RECORDS
+//*         DTSFNZ50 PRT 1ST 50 NON-ZERO CERTIFICATION REPLY RECORDS
+//*****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                        NO BACKUP NEEDED BEFORE THIS JOB
+//****
+//*                                       BD610/620/630 EXTRACT
+//STEP0100 EXEC DTSUX704
+//***
+//STEP0100.DTSFRQST DD  DSN=DOESTAX.CONV.FUTACERT.&FISCALYR.,
+//             DISP=SHR
+//****                             (USE NEXT THREE ONLY IF A RERUN)
+//**STEP0100.DTSFZ50  DD  DISP=SHR                        /* (***>>>)
+//**STEP0100.DTSFNZ50 DD  DISP=SHR
+//**STEP0100.DTSFRPLY DD  DISP=SHR
+//****
+//*      PRINT FIRST 50 ZERO CERTIFICATION REPLY RECORDS
+//****
+//STEP0125 EXEC PGM=IDCAMS,
+//          COND=(0,LT)
+//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
+//          HOLD=&LHOLD.
+//FILEIN   DD DSN=DOESTAX.&LVLNODE..FUTAZ50.&FISCALYR.,DISP=SHR
+//SYSIN    DD *
+  PRINT -
+    INFILE (FILEIN)
+/*
+//****
+//*      PRINT FIRST 50 NON-ZERO CERTIFICATION REPLY RECORDS
+//****
+//STEP0150 EXEC PGM=IDCAMS,
+//          COND=(0,LT)
+//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
+//          HOLD=&LHOLD.
+//FILEIN   DD DSN=DOESTAX.&LVLNODE..FUTANZ50.&FISCALYR.,DISP=SHR
+//SYSIN    DD *
+ PRINT -
+   INFILE (FILEIN)
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
+//         DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR
+//SORTOUT  DD  DSN=&&SRTRPT,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(16384,(1000,1000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
+//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
+//***
+//STEP0210 EXEC PGM=IDCAMS,       SAVE SORTED REPORT FILE
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//INDD01   DD  DSN=&&SRTRPT,
+//             DISP=(OLD,PASS,DELETE)
+//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..FUTA704.RPT.&FISCALYR,
+//****                                  USE DISP=SHR, IF A RERUN ***>>>
+//****         DISP=SHR,
+//             DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD  *
+  REPRO INFILE(INDD01) -
+        OUTFILE(OUTDD01) -
+        REPLACE
+/*
+//***                                       REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.PARMIN  DD  *
+DTSBD800,EXC,708
+/*
+//**                           SUCCESSFUL FUTA CERTIFICATIONS
+//STEP0100.RPT704R1 DD  SYSOUT=0
+//**                           FAILED     FUTA CERTIFICATIONS
+//STEP0100.RPT705R1 DD  SYSOUT=0
+//*
+//STEP0100.RPT708R1 DD DUMMY
+//*