DUTAS re-platformed to Raincode - Initial Source Code

JCL/MSTBSPLT.jcl

@@ -0,0 +1,59 @@
+//ECNTMSTB JOB (UI,4300,3400,T),MSTBSPLT,CLASS=A,MSGCLASS=X,            00000010
+//****      TYPRUN=SCAN,
+//          NOTIFY=ECNTSUP,REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//******
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//  SET MSTTEST='ZPROD'
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00000300
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//****                                                                  00000500
+//*    SPLIT MSTB FILE, ADDING ACCOUNTING RECORDS TO MSTH AND MSTI      00000700
+//*                                                                     00000800
+//*    NOTE: BEFORE RUNNING THIS JOB, CLOSE THE HTST FILES              00000900
+//*          IN THE CICS REGION.                                        00001000
+//*                                                                     00001300
+//*    NOTE ALSO THAT THIS JOB DOES *NOT* RUN A BKP OF THE HTST         00001000
+//*          FILES.                                                     00001000
+//****                                                                  00001400
+//**    RESTORE PROD FILES TO HTST
+//****
+//***                             STEP 1: RESTORE FILE TO DISK
+//*TEP0100 EXEC BXXX2XXX,
+//*           BKUPGEN='(+0)',
+//*           BCKNODE='BKP.QTREND',
+//*           BCKNODE='BKP.MONEND',
+//*           BCKNODE='BACKUP',
+//*           LVLNDIN='PROD',
+//*           LVLNDOUT='PROD'
+//***********************************
+//****                            STEP 1: EXTRACT HEADER RECORD
+//STEP0150 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR
+//INDD02   DD  DSN=&&MSTAHDR,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(32760,(100,100),RLSE),
+//             DCB=(RECFM=VB,LRECL=4096,BLKSIZE=32760)
+ REPRO INFILE(INDD01) OUTFILE(INDD02) COUNT(1)
+//****                            STEP 2: EXTRACT DATA TO FLAT FILE
+//STEP0200 EXEC DTSUD991
+//***
+//***                             STEP 3: DELETE/DEFINE AND
+//STEP0300 EXEC DTSUD998                  INITIALIZE FILES (MSTA/B/H/I)
+//***
+//***                             STEP 4: REBUILD MASTER FILE
+//STEP0400 EXEC DTSUD992
+//***
+//****                            STEP 5: REPRO HEADER REC TO MSTA
+//STEP0500 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD  DSN=&&MSTAHDR,
+//             DISP=(OLD,PASS,DELETE)
+//INDD02   DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR
+ REPRO INFILE(INDD01) OUTFILE(INDD02) COUNT(1)
+//****
+//