DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ412.jcl

@@ -0,0 +1,59 @@
+//DTSRQ412 JOB (UI,4300,3400,T),PROD.BE412,CLASS=P,MSGCLASS=X,          00000010
+//       NOTIFY=ECNTZL1,
+//****   TYPRUN=SCAN,
+//       USER=#DOADTS,
+//       REGION=0M
+//***
+//  SET LVLNODE='PROD'
+//  SET   LHOLD='NO'
+//***
+//* JOB : ESTIMATED REPORT LIST(S) QUARTERLY (RATED AND SI) FILERS ONLY
+//***
+//*** SYSTEM WILL DEFAULT TO LAST DELINQUENT QUARTER IF PARM IS LEFT
+//*** BLANK BELOW. OTHERWISE TYPE IN YYQ ON PARM CARD 7/11/17   ZL1
+//***
+//***
+//*     1. RUN IMMEDIATELY *BEFORE* A DAILY RUN
+//*        (CAN BE RUN *AFTER* BUT THAT STRETCHES
+//*         THE PROCESS OUT - UP TO 3 DAYS)
+//*     2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
+//*     3. ANY ESTIMATED LETTERS SHOULD COME OUT AS RPT316'S ON
+//*        THE NEXT DAILY (AFTER SYS-BATCHES ARE RELEASED)
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*                   (NOT NEEDED IF RUN IMMEDIATELY *AFTER*
+//*                        A REGULAR DAILY RUN)
+//*TEP0100 EXEC DTSUTVSM,
+//*            BKUPGEN='(+1)'
+//***
+//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD *
+412,
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0300 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0400 EXEC DTSRQRPT
+//**                              ESTIMATED REPORT LIST
+//STEP0100.RPT412R1 DD  SYSOUT=0
+//**                           NO ESTIMATED REPORT LIST
+//STEP0100.RPT412R2 DD  SYSOUT=0
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//STEP0100.RPT907R2 DD  DUMMY
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=0
+//*
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*
+//*                       STD BACKUP *AFTER* DATA FILE UPDATE
+//*                   (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
+//*                        A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
+//STEP0500 EXEC DTSUTVSM,
+//**           BKUPGEN='(+2)'    /* USE ONLY IF BKP DONE IN STEP0100
+//             BKUPGEN='(+1)'
+//*