//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)
//****
//