DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT717.jcl

@@ -0,0 +1,41 @@
+//DTSRT717 JOB (UI,4300,3400,T),TPS.PROD.RPT717,
+//             CLASS=A,MSGCLASS=X,
+//****         TYPRUN=SCAN,
+//****         USER=#DOADTS,
+//             NOTIFY=ECNTSUP
+//**
+//  SET LVLNODE='PROD'
+//  SET TPSFILE1='DOESTAX.PROD.RPT717.YR20242' <<< CHANGE YYQ BEF RUN
+//  SET PRINTER1='DOESTAX.PROD.COLLECT.Q20242' <<< CHANGE YYQ BEF RUN
+//  SET CHECK1='DOESTAX.PROD.COLL.Q20242'      <<< CHANGE YYQ BEF RUN
+//  SET LDEST=U@PRT65
+//*----------------------------------------------------------------+
+//* JOB: TPS RUN FROM RPT717 - REPORT COLLECTIONS
+//*          (RPT717 IS PRODUCED BY RUNRQ717)
+//*          (RUNRQ717 WILL RUN ON 7/1 BY SCHEDULER)
+//*
+//* 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
+//*       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-20     YYYYMMDD
+//*                 - DATE THE TRANSACTION FILE WAS CREATED
+//*----------------------------------------------------------------+
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//**
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//STEP0100 EXEC      DTSTP717
+//STEP0100.PARMIN  DD  *
+457,0060,A1,20240408
+/*
+//