DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT720.jcl

@@ -0,0 +1,45 @@
+//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
+//**