DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ602.jcl

@@ -0,0 +1,57 @@
+//DTSRQ602 JOB (UI,4300,3400,T),BE602,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         USER=#DOADTS,
+//         REGION=0M
+//*
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//****
+//* 03/02/2008
+//*         NEW VERSION OF AUDIT ASSIGNMENT PROCESS
+//****
+//*    ON REQUEST REPORT DTSBR602 -
+//*        RPT602R1 =    AUDIT SELECTION CRITERIA
+//*        RPT602R2 =    AUDIT CANDIDATES
+//*        RPT602R3 =    AUDIT CANDIDATES - SELF MAILER
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUX602,
+//             RUNTYPE='OR',
+//             PREBACK='Y'
+//*
+//STEP0100.EXTPARM DD *
+602
+/*
+//*                        REPORT RECORD SORT
+//STEP0300 EXEC DTSRS602
+//*
+//*                        REPORT GENERATION
+//STEP0500 EXEC DTSRQ602
+//STEP0100.RPT602R3 DD  HOLD=YES
+//STEP0100.RPT980R1 DD  HOLD=YES
+//STEP0400 EXEC PGM=DTSBA602,     /* WRITE MFAS RECORDS
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//RPT602F3 DD  DSN=DOESTAX.PROD.AUDIT.F602,
+//**           DISP=(,CATLG,DELETE),
+//             DISP=(OLD,KEEP,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(25,10),RLSE),
+//             DCB=(RECFM=FB,LRECL=1064,BLKSIZE=21280)
+//*
+//STEP0600 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//*
+//*