DUTAS re-platformed to Raincode - Initial Source Code

JCL/INITATH.jcl

@@ -0,0 +1,30 @@
+//ECNTZL1I JOB (UI,4300,3400,T),INITATH,CLASS=A,MSGCLASS=X,             00000010
+//**        TYPRUN=SCAN,
+//          NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*********************************************************************
+//*                                                                     00000200
+//  SET  UINODE='PROD'            REGION VSAM MASTER FILES
+//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES
+//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
+//*
+//*                                                                     00000200
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00000300
+//*                                                                     00000400
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=IDCAMS,         DELETE/DEFINE NAME FILE
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDATH),DISP=SHR
+//*
+//STEP0120 EXEC PGM=DTSBD998,       INITIALIZE NAME FILE
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFATH DD  DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIATH),DISP=SHR
+//*