//DTSRT716 JOB (UI,4300,3400,T),TPS.PROD.RPT716,
//             CLASS=P,MSGCLASS=X,
//****         TYPRUN=SCAN,
//             NOTIFY=ECNTSUP
//**
//* CHANGE TPSFILE1 TO CORRECT GDG BEFORE RUNNING JOB        - ZL1
//**
//  SET LVLNODE='PROD'
//  SET TPSFILE1='DOESTAX.PROD.RPT716.G0089V00'  <<< CHANGE BEF RUN
//  SET PRINTER1='DOESTAX.PROD.DELINQ.QTR241'
//  SET LDEST=U@PRT65
//**-----------------------------------------------------------------
//* JOB: TPS RUN FROM RPT716 - REPORT DELINQUENCY
//*          (RPT716 IS PRODUCED BY RUNRQ418)
//*
//* THE PRINTER FILE IS NOW CREATED ON DASD.  SEE SET STATEMENT
//* FOR THE DATASET NAME.  DOWNLOAD THE FILE FOR INPUT TO A SPREAD SHEET
//* GEORGE BROWN 4/15/2004
//*
//*
//**-----------------------------------------------------------------
//*           DEFINITION FOR PARMIN:
//*  COLS 1-3      RANDOM NUMBER (PICK ONE)
//*       5-8      NUMBER TO BE SAMPLED
//*                 - 4 DIGITS RIGHT JUSTIFIED
//*                 - ENTER LEADING ZEROES IF NEEDED
//*      10-11     SAMPLE TYPE
//*                 - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA)
//*      13-17     YYYYQ
//**-----------------------------------------------------------------
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//STEP0100 EXEC DTSTP716
//STEP0100.PARMIN  DD  *
698,0060,A1,20241
/*
//
//**