DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRDAY1.jcl

@@ -0,0 +1,39 @@
+//DTSRDAY1 JOB (UI,4300,3400,T),PROD.DAILY,CLASS=P,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//  SET S0910='+0'
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//  SET LVDHOLD='YES'
+//  SET LHOLD='YES'
+//  SET LDEST=U@PRT65
+//  SET PRTHOLD='YES'
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//* 09/28/99 - BROUGHT OVER TO LEXINGTON                         JHP
+//* 05/29/01 - MODIFIED FOR TAPE TRACKING (STEPS 0150, 300 - 320) GD
+//* 05/20/02 - REMOVED TAPE TRACKING                             JHP
+//* 06/18/02 - ADDED REF TO WGH/WTC/WAGNAM/W4FILE                JHP
+//* 04/02/04 - REMOVED STEP 60,70,80 BUILD OLD NAME FILE         JHP
+//****
+//**11/12/2004 - ADDED PROC DTSBX330 (CREDIT/DEBIT) AT EOJ       ZL1
+//****
+//****
+//*    UI TAX DAILY BATCH RERPORTS                                  *
+//STEP0200 EXEC DTSD0ARP
+//*
+//*    UI TAX DAILY BACKUP                                          *
+//STEP0400 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//**
+//
+//STEP0150 EXEC DTSUD525
+//*    NOTE:  BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE       *
+//*           CICS REGION.                                          *
+//*                                                                 *