//DTSRQ352 JOB (UI,4300,3400,T),PROD.UC30H.BE352,                       00000010
//       CLASS=S,MSGCLASS=X,                                            00000010
//       NOTIFY=ECNTSUP,
//****   USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//* JOB       : UC-30H YRLY MASS MAILING      (910)
//*             UC-30 COUNTS REPORT           (908)
//*          NO TPS CONTRIBUTION RPT RECORDS  (719)  (EXPORT)
//****
//    SET LVLNODE='PROD'
//    SET   LHOLD='YES'
//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//****
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
//*TEP0100 EXEC DTSUTVSM,
//*          BKUPGEN='(+1)'
//***
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QR',
//          PREBACK='Y'
//*
//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ352),
//         DISP=SHR
//*
//STEP0100.DTSFWGH  DD  DSN=DOESTAX.&LVLNODE..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.RPT902R1 DD  HOLD=YES
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT908R1 DD  HOLD=YES
//*
//STEP0100.DTS910F1 DD  DSN=DOESTAX.&LVLNODE..UC30HDAT,   490
//   DISP=SHR
//*
//STEP0100.RPT910R1 DD  HOLD=YES       <=== OUTPUT TO THE FORM
//STEP0100.RPT910R2 DD  HOLD=YES       <=== OUTPUT TO THE FORM
//STEP0100.RPT980R1 DD  HOLD=YES
//STEP0100.RPT991R1 DD  HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
//*
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0',COND=(0,NE)                    00015000
//SYSOUT DD SYSOUT=(*)                                                  00017000
//SYSPRINT DD SYSOUT=(*)                                                00018000
//*                                                                     00019000
//SORTIN DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR                     00020000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR                    00035000
//*  DISP=(NEW,CATLG,DELETE),                                           00036000
//*  UNIT=SYSDA,                                                        00037000
//*  SPACE=(CYL,(5,5),RLSE),                                            00038000
//*  DCB=*.SORTIN                                                       00040000
//*                                                                     00040100
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040200
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040300
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040400
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040500
//*                                                                     00042000
//SYSIN    DD *                                                         00043000
  SORT FIELDS=(6,7,CH,A)                                                00044000
/*                                                                      00045000
//STEP0500 EXEC DTSUTVSM,
//           BKUPGEN='(+1)'
//***
//*                                                                     00046000