//DTSRT719 JOB (UI,4300,3400,T),PROD.TPS719,
//             CLASS=P,MSGCLASS=X,
//****         TYPRUN=SCAN,
//****         USER=#DOADTS,
//             NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//  SET LVLNODE='PROD'
//  SET TPSFILE1='DOESTAX.PROD.RPT719.G0076V00'
//  SET PRINTER1='DOESTAX.PROD.CONTRIB.QTR241'
//  SET CHECK1='DOESTAX.PROD.CONTRIB.UC30.QTR241'
//  SET LDEST=U@PRT65
//*----------------------------------------------------------------+
//* JOB: TPS RUN FROM RPT719 - REPORT CONTRIBUTIONS
//*          (RPT719 IS PRODUCED BY RUNRQ902)
//*
//*  THE PRINTER FILE IS NOW CREATED ON DASD.  SEE SET STATEMENT
//*  FOR DATASET NAME.   DOWNLOAD THE FILE FOR INPUT TO A SPREAD SHEET
//*  GEORGE BROWN  04/14/2004
//*
//*
//**---------------------------------------------------------------
//*           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 DTSTP719
//STEP0100.PARMIN  DD  *
415,0060,A1,20241
/*
//