//DTSRQ910 JOB (UI,4300,3400,T),PROD.UC30H.BE352,                       00000010
//       CLASS=A,MSGCLASS=X,                                            00000010
//       USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='PROD'
//    SET LVDNODE='YES'
//    SET  UINODE='PROD'
//    SET   LHOLD='YES'
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//*     JOB:    UC-30H YRLY MASS MAILING      (910)
//*             UC-30 COUNTS REPORT           (908)
//* NOTE: TPS CONTRIBUTION RPT RECORDS (719H) WILL NOT BE PRODUCED
//*  FOR EXPORT UNTIL TPS HAS A WORKING DEFINITION FOR THEIR USAGE.
//****
//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//****
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
//**STEP0050 EXEC DTSUTVSM,
//**           BKUPGEN='(+1)'
//****
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QR',
//          PREBACK='Y'
//*
//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ910),
//         DISP=SHR
//*
//STEP0100.DTSFWGH  DD  DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//****                                      SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//****                                      REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT719R1 DD   DUMMY
//STEP0100.RPT991R1 DD   DUMMY
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//STEP0100.RPT907R1 DD  SYSOUT=0
//**                           UNUSUAL CONDITIONS REPORT (NOT NEEDED)
//STEP0100.RPT907R2 DD  DUMMY
//**                           UC30 COUNTS (REPORT SUMMARY)
//STEP0100.RPT908R1 DD  SYSOUT=0
//**                           CONTROL REPORT SUMMARY
//STEP0100.RPT980R1 DD  SYSOUT=0
//**                           EXPORT CONTROL REPORTS (NONE FOR NOW)
//****                                                                  00046000
//*                       STD BACKUP AFTER DATA FILE UPDATE
//STEP0500 EXEC DTSUTVSM,
//            BKUPGEN='(+1)'  /* MAKE IT (+2) IF BKP DONE IN STEP050
//****