//DTSRQ902 JOB (UI,4300,3400,T),PROD.UC30.BE351,                        00000010
//       CLASS=P,MSGCLASS=X,                                            00000010
//       USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET TPSYRQ='YR20174'   <<< CHANGE BEFORE RUNNING
//    SET LVLNODE='PROD'
//    SET LVDNODE='YES'
//    SET  UINODE='PROD'
//    SET   LHOLD='NO'
//****
//* JOB       : UC-30 QTRLY MASS MAILING      (902)
//*             UC-30 COUNTS REPORT           (908)
//*             TPS CONTRIBUTION RPT RECORDS  (719)  (EXPORT)
//****
//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//****
//***     PARMS ARE: - YRQTR (FOR WHICH TO PRINT THE UC30'S)
//***                - Y/N   (TO PRINT CREDIT AMOUNTS)
//***
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                          STD BACKUP BEFORE DATA FILE UPDATE
//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
//*TEP0050 EXEC DTSUTVSM,
//*           BKUPGEN='(+1)'
//***
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QR',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ902),
//         DISP=SHR
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//***
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//STEP0100.RPT907R1 DD  SYSOUT=0
//**                           UNUSUAL CONDITIONS REPORT (NOT NEEDED)
//RPT907R2 DD  DUMMY
//**                           UC30 COUNTS (REPORT SUMMARY)
//STEP0100.RPT908R1 DD  SYSOUT=0
//**                           CONTROL REPORT SUMMARY
//STEP0100.RPT980R1 DD  SYSOUT=0
//**                           EXPORT CONTROL REPORTS
//STEP0100.RPT991R1 DD  SYSOUT=0
//**                           TPS RECORD POPULATION CREATION
//STEP0100.RPT715R1 DD DUMMY
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*
//*                       STD BACKUP AFTER DATA FILE UPDATE
//*                       ( CHANGE +1 TO +2 IF BKP DONE IN STEP0100)
//STEP0400 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//**