DUTAS re-platformed to Raincode - Initial Source Code

JCL/DESRQ320.jcl

@@ -0,0 +1,20 @@
+//DESRQ320 JOB (UI,4300,3400,T),WAGE-NAME,CLASS=S,MSGCLASS=X,           00000010
+//**        TYPRUN=SCAN,
+//          USER=#DOADTS,
+//          NOTIFY=ECNTSUP
+//**
+//  SET  UINODE='PROD'            REGION BENEFITS FILE
+//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES
+//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
+//***********************************************************
+//*  RUNTYPE = C: REBUILD FILE
+//*  RUNTYPE = D: DAILY INCREMENTAL UPDATE
+//***********************************************************
+//  SET RUNTYPE='D'
+//*
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC DESBD320      BUILD WORKER NAME FILE
+//*********************************************************************