DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ119.jcl

@@ -0,0 +1,59 @@
+//DTSRQ119 JOB (UI,4300,3400,T),PROD.BE119.NO-UPDT,CLASS=P,             00000010
+//       MSGCLASS=X,                                                    00000010
+//       NOTIFY=ECNTSUP,
+//       USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//   SET LVLNODE='PROD'
+//   SET   LHOLD='NO'
+//****
+//* RPT119R1  = '8 QTRS OF NONE' REPORT
+//****
+//* NOTE: THIS RUN WILL NOT UPDATE THE MASTER FILES (SEE DTSRQ116)
+//*       THE 119R1 REPORT PRODUCED HERE IS A PRELIMINARY LIST
+//*       FOR THE TIMEFRAME CHOSEN               (SEE PARMS BELOW)
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//****                    NO BKP NEEDED FOR THIS RUN
+//*
+//STEP0100 EXEC DTSUEXT,                    BD400 EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ119),
+//         DISP=SHR
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*                                         SPECIFIC OVERRIDES
+//STEP0100.RPT117R2 DD  HOLD=YES
+//STEP0100.RPT119R1 DD  DSN=DOESTAX.CONV.RPT119R1.TXT(+1),
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(30000,(100,200),RLSE),
+//             DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
+//*
+//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:GERALD.SMART@DC.GOV',
+//         'TO:ROSALIND.HOLBROOK@DC.GOV',
+//         'TO:LAWANNE.CRAIG@DC.GOV',
+//         'CC:MARGARET.HERNANDEZ@DC.GOV',
+//         'CC:ARAVIND.VITTA@SAGITEC.COM',
+//*        'CC:RYAN.MOORE-LEE@DC.GOV',
+//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
+//         'CC:ZARATH.LALPUTAN@DC.GOV',
+//         'SUBJECT: DUTAS 8QTR ZERO WAGE INACTIVATIONS....ZL1',
+//         'FILEDESC: DUTAS INACTIVATIONS 8QTR AND ZERO RPT',
+//         'FILENAME: DUTAS_8QTR_0WAGE_RPT.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.CONV.RPT119R1.TXT(+1),DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//*