//DTSRQ718 JOB (UI,4300,3400,T),PROD.BE718,CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//         USER=#DOADTS,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//   SET TPSYRQ='YR2025' <<<<  CHANGE YEAR QTR BEFORE RUNNING JOB
//   SET LVLNODE='PROD'                CHANGE PARM BELOW.
//   SET   LHOLD='NO'
//*******************************************************************
//*    ON REQUEST REPORT DTSBR718 - CHANGE PARM FOR YEARLY RUN      *
//*                      TPS FIELD AUDIT RECORDS
//** JOB WILL RUN 1ST WEEK IN JAN TO COVER 4 QUARTERS OF PRIOR YEAR *
//*************** CHANGE REQUESTED BY OCIM AND PROGRAM          ZL1 *
//*******************************************************************
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
718,010125,123125         <<<<<<<< CHANGE PARM BEFORE RUNNING>>>>>>>
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//STEP0100.RPT715R1 DD DUMMY
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*