DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT719.jcl

@@ -0,0 +1,40 @@
+//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..PROCLIB
+//**
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//STEP0100 EXEC DTSTP719
+//STEP0100.PARMIN  DD  *
+415,0060,A1,20241
+/*
+//