//DTSRQ412 JOB (UI,4300,3400,T),PROD.BE412,CLASS=P,MSGCLASS=X,          00000010
//       NOTIFY=ECNTZL1,
//****   TYPRUN=SCAN,
//       USER=#DOADTS,
//       REGION=0M
//***
//  SET LVLNODE='PROD'
//  SET   LHOLD='NO'
//***
//* JOB : ESTIMATED REPORT LIST(S) QUARTERLY (RATED AND SI) FILERS ONLY
//***
//*** SYSTEM WILL DEFAULT TO LAST DELINQUENT QUARTER IF PARM IS LEFT
//*** BLANK BELOW. OTHERWISE TYPE IN YYQ ON PARM CARD 7/11/17   ZL1
//***
//***
//*     1. RUN IMMEDIATELY *BEFORE* A DAILY RUN
//*        (CAN BE RUN *AFTER* BUT THAT STRETCHES
//*         THE PROCESS OUT - UP TO 3 DAYS)
//*     2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
//*     3. ANY ESTIMATED LETTERS SHOULD COME OUT AS RPT316'S ON
//*        THE NEXT DAILY (AFTER SYS-BATCHES ARE RELEASED)
//***
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*                   (NOT NEEDED IF RUN IMMEDIATELY *AFTER*
//*                        A REGULAR DAILY RUN)
//*TEP0100 EXEC DTSUTVSM,
//*            BKUPGEN='(+1)'
//***
//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='OR',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD *
412,
/*
//***                                       SORT REPORT RECORDS
//STEP0300 EXEC DTSRSORT
//***                                       REPORT GENERATION
//STEP0400 EXEC DTSRQRPT
//**                              ESTIMATED REPORT LIST
//STEP0100.RPT412R1 DD  SYSOUT=0
//**                           NO ESTIMATED REPORT LIST
//STEP0100.RPT412R2 DD  SYSOUT=0
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//STEP0100.RPT907R2 DD  DUMMY
//**                           CONTROL REPORT SUMMARY
//STEP0100.RPT980R1 DD  SYSOUT=0
//*
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*
//*                       STD BACKUP *AFTER* DATA FILE UPDATE
//*                   (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
//*                        A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
//*STEP0500 EXEC DTSUTVSM,
//**           BKUPGEN='(+2)'    /* USE ONLY IF BKP DONE IN STEP0100
//*             BKUPGEN='(+1)'
//*