22 lines
1.3 KiB
Plaintext
22 lines
1.3 KiB
Plaintext
//DTSCHGVR JOB (UI,4300,3400,T),JHPPROD.CHGMRSTR, 00000105
|
|
// CLASS=S,MSGCLASS=X, 00000200
|
|
//**** TYPRUN=SCAN, 00000300
|
|
// REGION=0M, 00000400
|
|
// NOTIFY=ECNTSUP 00000506
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** NOTIFY=ECNTJP2 00000606
|
|
//**** 00000900
|
|
//* UI TAX RESTORE OF CHGMXXX VSAM FILE(S) 00001106
|
|
//**** 00001800
|
|
// SET LVLNODE='PROD' 00001905
|
|
//**** 00002000
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00002100
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002200
|
|
//**** 00002300
|
|
//* IN THE CICS REGION.
|
|
//****
|
|
//STEP0100 EXEC DTSURCHG,
|
|
// BKUPGEN='(+0)'
|
|
//*** OLD RESTORE
|
|
//
|