21 lines
1.6 KiB
Plaintext
21 lines
1.6 KiB
Plaintext
//DTSVRCHG JOB (UI,4300,3400,T),PROD-RESTORE,CLASS=P,MSGCLASS=X, 00000123
|
|
// NOTIFY=ECNTSUP, 00000217
|
|
//**** TYPRUN=SCAN, 00000320
|
|
// REGION=0M 00000414
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//* 00000500
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00000609
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
|
|
//**** 00000921
|
|
//* UI TAX VSAM CHARGE FILES RESTORE -- READ NOTE BELOW ----- * 00001100
|
|
//* * 00001200
|
|
//* WHEN JOB DTSPDAY1 ABENDS AND YOU HAVE TO RUN THIS RESTORE * 00001200
|
|
//* JOB THEN YOU WILL HAVE TO RUN JOB DTSREEXT TO RESTORE ALL * 00001200
|
|
//**** 00001621
|
|
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300
|
|
//* IN THE CICS REGION. * 00001400
|
|
//**** 00001621
|
|
//STEP0100 EXEC DTSURCHG, 00002000
|
|
// BKUPGEN='(+0)' 00003029
|
|
//**** 00001621
|