DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX467.jcl

@@ -0,0 +1,76 @@
+//DTSBX467 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
+//***      TYPRUN=SCAN,
+//*        USER=#DOADTS,
+//         NOTIFY=ECNTZL1,
+//         REGION=4M
+//****
+//    SET  UINODE='PROD'
+//    SET MSTNODE='PROD'
+//    SET PRGNODE='PROD'
+//    SET OUTNODE='CONV'
+//****
+//*  PRODUCE THE QUARTERLY WAGE EXTRACT FOR NDNH AND OAG
+//*
+//*  EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
+//*  RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
+//**   (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
+//****
+//STEP0100 EXEC PGM=DTSBX467
+//PRNTR    DD  SYSOUT=(*)
+//SYSOUT   DD  SYSOUT=(*)
+//SYSUDUMP DD  SYSOUT=(*)
+//SYSPRINT DD  SYSOUT=(*)
+//SYSDBOUT DD  SYSOUT=(*)
+//SYSCOUNT DD  SYSOUT=(*)
+//*
+//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
+//*
+//*EWG960F1 DD  DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
+//*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFNAME DD  DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//BUSINES DD  DSN=EFT.QWDATA.QTRLY.SDC.R231204,
+//            DISP=(NEW,CATLG,DELETE),VOL=SER=CXP002,
+//            UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE),
+//            DCB=(RECFM=FB,LRECL=601)
+//*USINES DD  DSN=DOESTAX.CONV.NDNH.QTRWAGE,
+//*            DISP=SHR
+//*            UNIT=SYSDA,
+//*            SPACE=(CYL,(300,100),RLSE),
+//*           DCB=(RECFM=FB,LRECL=601,BLKSIZE=6010)
+//*
+//*
+//***DEFAULT IS LAST COMPLETED QUARTER & ALL THREE REC TYPES
+//***
+//SYSIN  DD *
+**DTSBX465  20230701 20230930 DCG FED BUS
+/*
+//EMAIL    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
+//            'TO:HAROLD.JOHNSON@DC.GOV',
+//            'TO:CAROLYN.TAYLORSON@SSA.GOV',
+//            'TO:SEAN.JOSIAH@DC.GOV',
+//            'TO:JOY.DIGGS@DC.GOV',
+//            'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
+//            'TO:PRUDVI.PALLA@DC.GOV',
+//            'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
+//         'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
+//         'FILEDESC: DOES WAGES WITH NAMES               ',
+//         'FILENAME:DOESWAGE.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*
+//**