DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT722.jcl

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