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/DTSRQ793.jcl
+++ b/JCL/DTSRQ793.jcl
@ -0,0 +1,87 @@
+//DTSRQ793 JOB (UI,4300,3400,T),FUTA.QTRLY.CHNG,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//         USER=#DOADTS,
+//         REGION=0M
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//****
+//****
+//* REQUEST REPORT DTSBR793 - FUTA QTRLY- POTENTIAL LIABLE EMPLOYERS.
+//* RUN JOB WHEN THE IRS QTRLY FUTA CHANGE TAPE HAS BEEN DOWNLOADED
+//****
+//*     (CHANGE FISCAL YEAR/QTR BEFORE RUNNING THIS JOB)
+//****
+//  SET FISYRQTR='QTR222' <<<< CHANGE BEFORE RUNNING JOB >>>>>>
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//*
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*****************************************************************
+//*****    SORT FUTA FILE AND EXCLUDE DUPLICATE FEIN          *****
+//*****                                                       *****
+//*****************************************************************
+//SORT1    EXEC PGM=SYNCSORT,REGION=1024K
+//SORT.SYSPRINT DD SYSOUT=*
+//SORT.STATOUT  DD SYSOUT=*
+//SORT.SYSDBOUT DD SYSOUT=*
+//SORT.SYSUDUMP DD SYSOUT=*
+//SORT.SYSOUT   DD SYSOUT=*
+//SORTIN   DD DSN=DOESTAX.CONV.FUTACHNG.&FISYRQTR.,DISP=SHR
+//         DD DSN=DOESTAX.CONV.FUTACHNG.QTR221,DISP=SHR
+//SORTOUT  DD DSN=DOESTAX.CONV.FUTACHNG.SORTED,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SYSIN    DD *
+  SORT FIELDS=(5,9,CH,A)
+  SUM FIELDS=NONE
+  END
+//*
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUX793
+//*
+//STEP0100.DTSFQEUP DD  DSN=DOESTAX.CONV.FUTACHNG.SORTED,
+//           DISP=SHR
+//***
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//*TEP0100.RPT793R1 DD  HOLD=YES
+//STEP0100.RPT793R2 DD  DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
+//STEP0100.RPT793R3 DD  DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
+//*
+//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:MACARENA.CANTELAS@DC.GOV',
+//            'TO:ZARATH.LALPUTAN@DC.GOV',
+//            'TO:ROSALIND.HOLBROOK@DC.GOV',
+//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
+//         'SUBJECT: IRS FUTA QTR (NOT IN DUTAS) REPORT',
+//         'FILENAME:FUTA_X793_MAILED.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*
+//X793MAIL EXEC PGM=IEBGENER,COND=(0,LT),
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
+//            'TO:MACARENA.CANTELAS@DC.GOV',
+//            'TO:ROSALIND.HOLBROOK@DC.GOV',
+//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
+//         'SUBJECT: IRS FUTA QTR (FOUND IN DUTAS) REPORT',
+//         'FILENAME:FUTA_X793_INDUTAS.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*