DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ461.jcl

@@ -0,0 +1,46 @@
+//DTSRQ412 JOB (UI,4300,3400,T),BE461,CLASS=A,MSGCLASS=X,               00000010
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//***                         /JOBNAME RQ412 FOR VIEW DIRECT REPORTS
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//  SET QTRNODE='QTR081'   <<<< CHANGE PARM BEFORE RUNNING JOB
+//  SET   LHOLD='YES'
+//***
+//* JOB       : INTEND TO ESTIMATE NOTICE(461).
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//***
+//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+461,Y,081           <<<<<<<< CHANGE PARM BEFORE RUNNING JOB
+/*
+//*                                         SORT REPORT RECORDS
+//STEP0300 EXEC DTSRSORT
+//***
+//*                                         REPORT GENERATION
+//STEP0400 EXEC DTSRQRPT
+//*                                         REPORT GENERATION
+//**                              ESTIMATED REPORT LIST
+//STEP0100.RPT461R1 DD  SYSOUT=(V,DTS412Q1),HOLD=&LVDHOLD.,DEST=&LDEST
+//**                           NO ESTIMATED REPORT LIST
+//STEP0100.RPT461R2 DD  SYSOUT=(V,DTS412Q2),HOLD=&LVDHOLD.,DEST=&LDEST
+//*                                         REPORT GENERATION
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
+//**********************************************************************
+//STEP0500 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
+//INDD02   DD DSN=DOESTAX.&LVLNODE..R461.&QTRNODE.,
+//           DISP=(,CATLG,DELETE),
+//           SPACE=(8192,(100,200),RLSE),
+//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD *
+  REPRO INFILE(INDD01) OUTFILE(INDD02)
+/*
+//*