43 lines
1.3 KiB
Plaintext
43 lines
1.3 KiB
Plaintext
//DTSRQ455 JOB (UI,4300,3400,T),PROD.BE455,CLASS=A,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTZL1,
|
|
// USER=#DOADTS,
|
|
// REGION=0M
|
|
//***
|
|
// SET MSTNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//***
|
|
//* JOB : ESTIMATED REPORT LIST(S) (455R1/455R2).
|
|
//***
|
|
//* 1. RUN ANNUALLY
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
|
|
//* 3. THE INPUT PARM IS IN QUARTER FORMAT (YYQ) AND IT
|
|
//* MUST CONTAINS THE 1ST QUARTER OF THE SUBJECT YEAR.
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//***
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//*
|
|
//STEP0200 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD *
|
|
455,
|
|
/*
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0300 EXEC DTSRSORT
|
|
//*** REPORT GENERATION
|
|
//STEP0400 EXEC DTSRQRPT
|
|
//STEP0100.RPT980R1 DD HOLD=YES
|
|
//*
|
|
//* STD BACKUP *AFTER* DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
|
|
//* A REGULAR DAILY RUN - SEE +1 ABOVE)
|
|
//STEP0500 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)'
|
|
//*
|
|
//****************************************************************
|