DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ433.jcl

@@ -0,0 +1,37 @@
+//DTSRQ433 JOB (UI,4300,3400,T),PROD.BE433,CLASS=S,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP,
+//         REGION=0M
+//****
+//****
+//  SET ACHYEAR='FY2009'
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//  SET LDEST=U@PRT65
+//  SET LHOLD='YES'
+//****
+//*    SECOND NOTICE: SELF-INSURED TAX DUE
+//*       RUNS ON REQUEST AT LEAST 30 DAYS AFTER THE SELF-INSURED
+//*       TAX DUE DATE.
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*      BACKUP REQUIRED - UPDATES MEVL
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR',
+//             PREBACK='Y'
+//STEP0100.EXTPARM DD *
+433,101
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*
+//STEP0300 EXEC DTSRQRPT
+//*                            /* ARCHIVE 433 SI DELQ RECORDS
+//STEP0100 EXEC DTSAR433
+//*                            /* STD BACKUP AFTER UPDATE
+//STEP0200 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//*