DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
JCL/DTSVSRST.jcl
Normal file
21
JCL/DTSVSRST.jcl
Normal file
@ -0,0 +1,21 @@
|
||||
//DTSVSRST JOB (UI,4300,3400,T),JHP.PROD.RSTR,CLASS=P,MSGCLASS=X, 00000101
|
||||
// NOTIFY=ECNTSUP, 00000200
|
||||
//**** TYPRUN=SCAN, 00000300
|
||||
// REGION=0M 00000400
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//* 00000500
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00000600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000700
|
||||
//**** 00000900
|
||||
//* UI TAX VSAM FILES RESTORE (SPECIAL VERSION FOR ALL LVLNODES) 00001101
|
||||
//* (12 FILE FLAVOR) 00001203
|
||||
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES 00001401
|
||||
//* IN THE CICS REGION. 00001501
|
||||
//**** 00001600
|
||||
//STEP0100 EXEC DTSUSRST, 00002001
|
||||
// LVLNDIN='PROD', 00003002
|
||||
// LSERVOL='(,RETAIN,SER=403072)', 00003107
|
||||
// BCKNODE='BKP.QTREND', 00003204
|
||||
// BKUPGEN='.G0001V00', 00003307
|
||||
// LVLNODE='HTST' 00003504
|
||||
//*** 00004002
|
||||
Reference in New Issue
Block a user