DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX403.jcl

@@ -0,0 +1,43 @@
+//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1),              JOB10082
+//       USER=#DOADTS,
+//       MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
+//*
+//***************************************************
+//*  TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
+//***************************************************
+//*
+//   SET LVLNODE='CONV'
+//   SET MSTNODE='PROD'
+//   SET PRGNODE='PROD'
+//   SET LVDHOLD='YES'
+//  SET LDEST='LOCAL'
+//  SET LHOLD='YES'
+//*
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
+//*
+//******************************************************************
+//STEP0100 EXEC PGM=DTSBX403,
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//*
+//DTSFVRI1 DD  DSN=DOESTAX.PROD.SRTDAILY.RPT(0),
+//             DISP=SHR
+//*
+//DTSLN403 DD  DSN=DOESTAX.CONV.LEIN403.RECORD,
+//*            DISP=(NEW,CATLG,DELETE),
+//             DISP=SHR
+//*            UNIT=SYSDA,
+//*            SPACE=(CYL,(10,10),RLSE),
+//*            DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
+//*
+//DTSLN405 DD  DUMMY
+//*
+//*********************************************************************