DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ462.jcl

@@ -0,0 +1,29 @@
+//DTSRQ462 JOB (UI,4300,3400,T),DELQ.BE462,CLASS=A,MSGCLASS=X,          00000010
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//***
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//  SET QTRNODE='QTR081'      <<<<<< CHANGE PARM BEFORE RUNNING JOB
+//  SET   LHOLD='YES'         <<<<<< CHANGE PARM BELOW ALSO
+//***
+//* JOB       : ESTIMATE NOTICE(461).
+//***
+//*     1. RUN IMMEDIATELY BEFORE OR AFTER A DAILY RUN
+//*     2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
+//*     3. ANY ESTIMATED LETTERS SHOULD COME AS RPT316'S ON
+//*        THE NEXT DAILY (AFTER SYS-BATCHES ARE RELEASED)
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
+//*OADLIBS INCLUDE MEMBER=DTSIPJLB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//DTSFVRI1  DD  DSN=DOESTAX.&LVLNODE..R461.&QTRNODE.,DISP=SHR
+//STEP0100.EXTPARM  DD  *
+462,081 <<<< CHANGE PARM BEFORE RUNNING JOB
+/*
+//*                                         SORT REPORT RECORDS