//DTSRT720 JOB (UI,4300,3400,T),JHP.PROD.SAMPL720,
//             CLASS=A,MSGCLASS=X,
//****         TYPRUN=SCAN,
//****         USER=#DOADTS,
//             NOTIFY=&SYSUID
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//  SET LVLNODE='PROD'
//  SET TPSFILE1='DOESTAX.PROD.RPT720.QTR242' /RATED   (1)
//  SET TPSFILE2='DOESTAX.PROD.RPT721.QTR242' /SI DATA (2)
//  SET PRINTER1='DOESTAX.PROD.DEBIT2.QTR242'
//* SET LDEST=U@PRT65
//****
//* JOB: TPS RUN FROM RPT720 - REPORT DEBITS/BILLINGS (RATED+SI)
//*          (RPT720 & RPT721 ARE PRODUCED BY RUNRQ720)
//*
//* THE PRINTER FILE IS NOW CREATED ON DASD.  SEE SET STATEMENT
//* FOR THE DATASET NAME.  DOWNLOAD THE FILE FOR INPUT TO A SPREAD SHEET
//* 3RD NOD OF DATASET DEBITS1 = RATED
//* 3RD NOD OF DATASET DEBITS2 = REIMBURSING
//* GEORGE BROWN 4/15/2004
//*
//*
//****
//*           DEFINITION FOR PARMIN:
//*  COLS 1-1      TRANSACTION TYPE (1 OR 2)
//*                 - 1 = RATED (CONTRB), 2 = SELF-INS. (REIMB)
//*       3-5      RANDOM NUMBER
//*       7-10     NUMBER TO BE SAMPLED
//*                 - 4 DIGITS RIGHT JUSTIFIED
//*                 - ENTER LEADING ZEROES IF NEEDED
//*      12-13     SAMPLE TYPE
//*                 - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA)
//*      15-19     YYYYQ
//*----------------------------------------------------------------+
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//**
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//STEP0100 EXEC DTSTP720
//STEP0100.PARMIN  DD  *
2,876,0060,A1,20242
/*
//*TEP0500.PRINTER DD DISP=SHR
//**