//DTSRT722 JOB (UI,4300,3400,T),JHP.PROD.RPT722,
//             CLASS=P,MSGCLASS=X,
//****         TYPRUN=SCAN,
//****         USER=#DOADTS,
//             NOTIFY=&SYSUID
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//  SET LVLNODE='PROD'
//  SET TPSFILE1='DOESTAX.PROD.RPT722.QTR20241'
//  SET PRINTER1='DOESTAX.PROD.CREDITS.QTR241'
//* SET LDEST=U@PRT65
//**
//* JOB: TPS RUN FROM RPT722 - REPORT CREDITS/REFUNDS (RATED)
//*          (RPT722 IS PRODUCED BY RUNRQ722)
//*
//* THE PRINTER 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
//*
//* ADDED EXPORT FILE WHICH CONTAINS A COMMA-DELIMITED VERSION
//* OF THE HIT-FILE FOR EXPORT TO EXCEL.  GD 04/23/2009
//*
//**
//*           DEFINITION FOR PARMIN:
//*  COLS 1-3      RANDOM NUMBER
//*       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 DTSTP722
//STEP0100.PARMIN  DD  *
119,0060,A1,20241
/*