34 lines
2.5 KiB
Plaintext
34 lines
2.5 KiB
Plaintext
//DTSVRSTR 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.PROCS.BATCH.LIB 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
|
|
/**** 00001621
|
|
//* NOTE: RAINCODE RESTORE FOR DAILY MASTER FILES * 00001300
|
|
//* TO RESTORE +0 GENERATION USE PROC DTSURVSM0 * 00001400
|
|
//****
|
|
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
|
|
//*
|
|
//*STEP0100 EXEC DTSURVSM0 00002000
|
|
//** 00003029
|
|
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000
|
|
//*
|
|
//STEP0100 EXEC DTSURVSM, 00002000
|
|
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029 |