DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRT718.jcl

@@ -0,0 +1,41 @@
+//DTSRT718 JOB (UI,4300,3400,T),JHP.PROD.RPT718,
+//             CLASS=P,MSGCLASS=X,
+//****         TYPRUN=SCAN,
+//             NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//  SET LVLNODE='PROD'
+//  SET TPSFILE1='DOESTAX.PROD.RPT718.YR2024'     <<<< CHANGE BEF RUN
+//  SET PRINTER1='DOESTAX.PROD.AUDIT.YR2024'       <<<< CHANGE BEF RUN
+//  SET PICKLST='DOESTAX.PROD.PICKLST.AUDIT.YR2024'  << CHANGE BEF RUN
+//  SET LDEST=U@PRT65
+//*----------------------------------------------------------------+
+//* JOB: TPS RUN FROM RPT718 - REPORT FIELD AUDIT
+//*           (PROD.RPT718 IS PRODUCED BY RUNRQ718)
+//*
+//* AUDITS ARE RUN FOR THE WHOLE CAL YEAR 010114 - 123114        ZL1
+//*
+//* 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-16     YYYY
+//*================================================================|
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//**
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//STEP0100 EXEC DTSTP718
+//STEP0100.PARMIN  DD  *
+701,0060,A1,2024
+/*
+//