DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ309.jcl

@@ -0,0 +1,50 @@
+//DTSRQ309 JOB (UI,4300,3400,T),PROD.BE309,CLASS=A,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'
+//****
+//* JOB       : STATEMENT OF ACCT   (CR-MEMO)(SM)  (309)
+//*           : COPY OF SELF-MAILER (CR-MEMO)(LTR) (309)
+//*           : STATEMENT OF ACCT (CTRL REPORT)    (310)
+//****
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*                  (NOT NEEDED IF RUN RIGHT AFTER THE DAILY JOB)
+//*
+//***STEP0100 EXEC DTSUTVSM,
+//***             BKUPGEN='(+1)'
+//****
+//STEP0150 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ309),
+//         DISP=SHR
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT309R1 DD  HOLD=YES
+//STEP0100.RPT309R2 DD SYSOUT=(V,DTS309S2),HOLD=&LVDHOLD.,DEST=&LDEST.
+//STEP0100.RPT907R1 DD SYSOUT=(V,DTS907S2),HOLD=&LVDHOLD.,DEST=&LDEST.
+//STEP0100.RPT980R1 DD SYSOUT=(V,DTS980S2),HOLD=&LVDHOLD.,DEST=&LDEST.
+//STEP0100.RPT991R1 DD DUMMY
+//**STEP0100.RPT310R1 DD  HOLD=YES
+//**STEP0100.RPT980R1 DD  HOLD=YES
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//****
+//*                       STD BACKUP AFTER DATA FILE UPDATE
+//*                  (NOT NEEDED IF RUN RIGHT BEFORE THE DAILY JOB)
+//STEP0400 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'      /* IF NOT DONE IN STEP0100
+//**             BKUPGEN='(+2)'      /* IF  2ND BKP IS NEEDED
+//*