//DTSRQ309 JOB (UI,4300,3400,T),PROD.BE309,CLASS=A,MSGCLASS=X,          00000010
//       NOTIFY=ECNTSUP,
//****   USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='PROD'
//    SET   LHOLD='NO'
//****
//* JOB       : STATEMENT OF ACCT   (CR-MEMO)(SM)  (309)
//*           : COPY OF SELF-MAILER (CR-MEMO)(LTR) (309)
//*           : STATEMENT OF ACCT (CTRL REPORT)    (310)
//****
//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*                  (NOT NEEDED IF RUN RIGHT AFTER THE DAILY JOB)
//*
//***STEP0100 EXEC DTSUTVSM,
//***             BKUPGEN='(+1)'
//****
//STEP0150 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='OR',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ309),
//         DISP=SHR
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//***                                       REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT309R1 DD  HOLD=YES
//STEP0100.RPT309R2 DD SYSOUT=(V,DTS309S2),HOLD=&LVDHOLD.,DEST=&LDEST.
//STEP0100.RPT907R1 DD SYSOUT=(V,DTS907S2),HOLD=&LVDHOLD.,DEST=&LDEST.
//STEP0100.RPT980R1 DD SYSOUT=(V,DTS980S2),HOLD=&LVDHOLD.,DEST=&LDEST.
//STEP0100.RPT991R1 DD DUMMY
//**STEP0100.RPT310R1 DD  HOLD=YES
//**STEP0100.RPT980R1 DD  HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//****
//*                       STD BACKUP AFTER DATA FILE UPDATE
//*                  (NOT NEEDED IF RUN RIGHT BEFORE THE DAILY JOB)
//STEP0400 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'      /* IF NOT DONE IN STEP0100
//**             BKUPGEN='(+2)'      /* IF  2ND BKP IS NEEDED
//*