25 lines
1.9 KiB
Plaintext
25 lines
1.9 KiB
Plaintext
//ECNTSUPR JOB (UI,4300,3400,T),JHP.PROD.RSTR,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 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
|
|
//* EXTERNAL FILES NEEDED FOR DAILY JOB. * 00001200
|
|
//* PLEASE VERIFY FILES PROD.WAGE.BTC AND PROD.BTC GENERATION * 00001200
|
|
//* ARE EMPTY OR DUPLICATES WILL OCCUR. IF THERE ARE NO GENERATION 00001200
|
|
//* THAT IS OK ONE WILL BE CREATED FROM THE RESTORE AND RERUN OF * 00001200
|
|
//* THE DAILY JOB * 00001200
|
|
//**** 00001621
|
|
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300
|
|
//* IN THE CICS REGION. * 00001400
|
|
//**** 00001621
|
|
//STEP0100 EXEC DTSURVSM, 00002000
|
|
// BKUPGEN='(+0)' 00003029
|