DUTAS re-platformed to Raincode - Initial Source Code

JCL/RUNRQ713.jcl

@@ -0,0 +1,81 @@
+//ECNTJ713 JOB (UI,4300,3400,T),BE770,CLASS=P,MSGCLASS=X,               00000010
+//***    USER=OPCSUB,
+//       NOTIFY=ECNTJP2,
+//****   TYPRUN=SCAN,        //* CHECK -->> LINES BELOW IF A RERUN
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='TEST'
+//    SET MSTNODE='TEST'
+//    SET     QTR='Q034'
+//****
+//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
+//* FOR THE ETA581 PROCESS AND THE ETA581 REPORT ITSELF.
+//*
+//* THIS PROCESS CREATES DTSIY77X RECORDS THAT ARE SORTED AND INPUT
+//* TO DTSBX770. IT CALLS THE APPROPRIATE PROGRAMS TO BUILD THE
+//* RECONSTRUCTION FILE RECORDS (DTSIX77X).
+//****
+//*       1. RUN RIGHT AFTER THE LAST SUCCESSFUL DAILY RUN
+//*                           IN A QUARTER
+//*       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* A DAILY RUN)
+//*STEP0100 EXEC DTSUTVSM,
+//*             BKUPGEN='(+1)'
+//****
+//*             SPEC BACKUP AT END OF QTR BEFORE 581 RPT - UP TO 12
+//*                           QTRS TO BE USED FOR AUDITING PURPOSES.
+//*STEP0125 EXEC DTSUTVSQ,
+//*             BKUPGEN='(+1)'
+//*** *
+//STEP0200 EXEC DTSUX770,                   BD400 PERIODIC EXTRACT
+//          RUNTYPE='QE',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+770,
+/*
+//***              USE THE FOLLOWING LINES FOR A RERUN   **-->>
+//**STEP0100.DTSFBTCO DD  DISP=SHR
+//**STEP0100.BE770PRM DD  DISP=SHR
+//**STEP0300.DTSX771  DD  DISP=SHR
+//**STEP0300.DTSX772  DD  DISP=SHR
+//**STEP0300.DTSX773  DD  DISP=SHR
+//**STEP0300.DTSX774  DD  DISP=SHR
+//**STEP0300.DTSX775  DD  DISP=SHR
+//***
+//STEP0100.DTSFVR01 DD  DUMMY
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
+//SYSPRINT DD  SYSOUT=*
+//SOUTOUT  DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
+//            DISP=SHR
+//***                                       SORT REPORT RECORDS
+//STEP0400 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0500 EXEC DTSRQRPT
+//STEP0100.RPT719R1 DD  DUMMY
+//STEP0100.DTS910F1 DD  DUMMY
+//STEP0100.RPT713R2 DD HOLD=YES
+//***                            STD BACKUP AFTER DATA FILE UPDATE
+//*STEP0600 EXEC DTSUTVSM,
+//***          BKUPGEN='(+2)'     /* (ONLY IF BKP DONE IN STEP0100
+//*          BKUPGEN='(+1)'
+//*
+//*                        THIS RESTORE IS DONE AT QTR-END TO
+//*                   REORG THE SECONDARY VSAM FILES (ATC/REF & WRK)
+//*                        (OLA IS ALREADY RESET BY THE DAILY)
+//*                    (MSTA/B/C/D/E/F/G & AIX ARE DONE IN THE MONTHLY)
+//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
+//*                                 A SUCCESSFUL (ANNUAL?) LOAD)
+//*STEP0500 EXEC DTSRORG2,
+//***          BKUPGEN='(+2)'     /* (ONLY IF BKP DONE IN STEP0100)
+//*         BKUPGEN='(+1)'
+//*