60 lines
2.5 KiB
Plaintext
60 lines
2.5 KiB
Plaintext
//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)
|
|
//****
|
|
//
|