//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..PROCS.BATCH.LIB
//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)'
//*
//****************************************************************