DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBE405.jcl

@@ -0,0 +1,38 @@
+//DTSBE405 JOB (UI,4300,3400,T),DEVL.BE418,CLASS=A,MSGCLASS=X,          00000010
+//       USER=#DOADTS,
+//       NOTIFY=ECNTZL1,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//****
+//    SET MSTNODE='PROD'
+//    SET LVLNODE='PROD'
+//    SET   LHOLD='YES'
+//****
+//* JOB       : PRINT LIENS RELEASES (405) DAILY AFTER PDAY1
+//****
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*********************************************************************
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QD',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+405
+/*
+//*STOP HERE - CALL JOB DTSBX405 TO CREATE LIEN 405 RECORDS.
+//*
+//*TEP0200 EXEC DTSRSORT
+//*                                         REPORT GENERATION
+//*TEP0300 EXEC DTSRQRPT
+//*TEP0100.RPT405R1 DD  HOLD=YES
+//*TEP0100.RPT405R2 DD  HOLD=YES
+//*TEP0100.DTS901R1 DD  HOLD=YES
+//*TEP0100.RPT907R1 DD  HOLD=YES
+//*TEP0100.RPT907R2 DD  HOLD=YES
+//*TEP0100.RPT980R1 DD  HOLD=YES
+//*OESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
+//*                                                                     00640000