38 lines
1.5 KiB
Plaintext
38 lines
1.5 KiB
Plaintext
//DTSPMONX JOB (UI,4300,3400,T),PROD.MONTHLY,CLASS=P,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
//**** USER=#DOADTS,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//*
|
|
// SET LVLNODE='PROD'
|
|
//****
|
|
//* REVISED 9/20/1999 FOR DC - GD |
|
|
//* NOTE : RUN ON LAST WORKING DAY OF MONTH. |
|
|
//* AFTER DAILY HAS RUN (AND WEEKLY IF NECESSARY) |
|
|
//****
|
|
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* SPEC BACKUP BEFORE MONTHLY BATCH
|
|
//* THIS RESTORE IS DONE AT MONTH-END TO
|
|
//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX)
|
|
//* (OLA IS ALREADY RESET BY THE DAILY)
|
|
//* (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
|
|
//* (NAIC & SIC NEED ONLY BE DONE AFTER
|
|
//* A SUCCESSFUL (ANNUAL?) LOAD)
|
|
//**//STEP0600 EXEC DTSRORG1,
|
|
//**// BKUPGEN='(+0)'
|
|
//*
|
|
//* MONTH END REPORTING
|
|
//STEP0700 EXEC DTSRMEND,
|
|
// LVLNODE='PROD',
|
|
// RPTGEN='+0',
|
|
// LDEST=U@PRT65,
|
|
// LHOLD='NO',
|
|
// LVDHOLD='YES',
|
|
// LR414H='YES'
|
|
//** SPECIFIC OVERRIDE(S) FOR THE MONTHLY
|
|
//*
|