DUTAS re-platformed to Raincode - Initial Source Code

JCL/RUNRQEXT.jcl

@@ -0,0 +1,29 @@
+//RUNRQEXT JOB (UI,4300,3400,T),CREATE-FTP-ESR-FILE,CLASS=P,MSGCLASS=X, 00000010
+//*            TYPRUN=SCAN,
+//             NOTIFY=ECNTGD1,
+//             REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//  SET MSTNODE='HDVL'            REGION VSAM MASTER FILES
+//  SET LVLNODE='HDVL'            REGION BATCH LOADLIB/PROCLIB
+//  SET CYPNODE='HDVL'            EXTRACTED FILE FOR GOV1 FPT
+//*
+//****
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****                                      BACKUP AFTER THIS RUN
+//*STEP0500 EXEC DTSUTVSM,
+//*         BKUPGEN='(+1)'            /* IF NO BKP IN STEP0100
+//*
+//*STEP0100 EXEC DESBD300      EXTRACT DATA FROM WAGE FILE
+//*
+//STEP0200 EXEC EFTEX100,                     DAILY EFT EXTRACT
+//             RUNTYPE='OR',
+//             PREBACK='N'
+//*
+//*            LIST OF REC TYPES TO BE EXTRACTED BY BD400
+//STEP0100.EXTPARM DD *
+100
+/*
+//