DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT716.jcl

@@ -0,0 +1,39 @@
+//DTSRT716 JOB (UI,4300,3400,T),TPS.PROD.RPT716,
+//             CLASS=P,MSGCLASS=X,
+//****         TYPRUN=SCAN,
+//             NOTIFY=ECNTSUP
+//**
+//* CHANGE TPSFILE1 TO CORRECT GDG BEFORE RUNNING JOB        - ZL1
+//**
+//  SET LVLNODE='PROD'
+//  SET TPSFILE1='DOESTAX.PROD.RPT716.G0089V00'  <<< CHANGE BEF RUN
+//  SET PRINTER1='DOESTAX.PROD.DELINQ.QTR241'
+//  SET LDEST=U@PRT65
+//**-----------------------------------------------------------------
+//* JOB: TPS RUN FROM RPT716 - REPORT DELINQUENCY
+//*          (RPT716 IS PRODUCED BY RUNRQ418)
+//*
+//* THE PRINTER FILE 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
+//*
+//*
+//**-----------------------------------------------------------------
+//*           DEFINITION FOR PARMIN:
+//*  COLS 1-3      RANDOM NUMBER (PICK ONE)
+//*       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 DTSTP716
+//STEP0100.PARMIN  DD  *
+698,0060,A1,20241
+/*
+//
+//**