DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ455.jcl

@@ -0,0 +1,42 @@
+//DTSRQ455 JOB (UI,4300,3400,T),PROD.BE455,CLASS=A,MSGCLASS=X,          00000010
+//       NOTIFY=ECNTZL1,
+//       USER=#DOADTS,
+//       REGION=0M
+//***
+//  SET MSTNODE='PROD'
+//  SET LVLNODE='PROD'
+//  SET   LHOLD='YES'
+//***
+//* JOB       : ESTIMATED REPORT LIST(S)    (455R1/455R2).
+//***
+//*     1. RUN ANNUALLY
+//*     2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
+//*     3. THE INPUT PARM IS IN QUARTER FORMAT (YYQ) AND IT
+//*        MUST CONTAINS THE 1ST QUARTER OF THE SUBJECT YEAR.
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//***
+//*TEP0100 EXEC DTSUTVSM,
+//*        BKUPGEN='(+1)'
+//*
+//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+455,
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0300 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0400 EXEC DTSRQRPT
+//STEP0100.RPT980R1 DD  HOLD=YES
+//*
+//*                       STD BACKUP *AFTER* DATA FILE UPDATE
+//*                   (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
+//*                        A REGULAR DAILY RUN - SEE +1 ABOVE)
+//STEP0500 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//*
+//****************************************************************