DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ310.jcl

@@ -0,0 +1,69 @@
+//DTSRQ310 JOB (UI,4300,3400,T),DTSBU310,CLASS=S,MSGCLASS=X,            00000010
+//          USER=#DOADTS,
+//          NOTIFY=ECNTZL1
+//**
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBU310,    BUILD WITM FILE
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//*
+//DTSFBIO  DD  DSN=DOESTAX.&LVLNODE..WITM.FILE,
+//             DISP=(NEW,CATLG,CATLG),
+//*            DISP=(OLD,KEEP,KEEP),
+//             SPACE=(CYL,(75,15),RLSE),
+//             DCB=(RECFM=FB,LRECL=17,BLKSIZE=30600)
+/*
+//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',    SORT ITM RECORDS
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.&LVLNODE..WITM.FILE,
+//             DISP=(OLD,KEEP,KEEP)
+//*
+//SORTOUT  DD DSN=&&WITMSORT,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(75,15),RLSE),
+//             DCB=(RECFM=FB,LRECL=17,BLKSIZE=30600)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWITM),DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//*********************************************************
+//STEP0300 EXEC PGM=IDCAMS,         DELETE/DEFINE ITM FILE
+//            REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSDDITM),DISP=SHR
+//*
+//**********************************************************
+//*
+//STEP0310 EXEC PGM=DTSBD998,       INITIALIZE ITM FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFITM  DD  DSN=DOESTAX.&LVLNODE..VSAM.ITM,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSIITM),DISP=SHR
+//******************************************************
+//*
+//STEP0400 EXEC PGM=IDCAMS,          LOAD VSAM FILE
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=&&WITMSORT,
+//             DISP=(OLD,PASS,DELETE)
+//OUTDD01  DD DSN=DOESTAX.&LVLNODE..VSAM.ITM,DISP=SHR
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//*********************************************************************