DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTX540.jcl

@@ -0,0 +1,28 @@
+//ECNTJ540 JOB (UI,4300,3400,T),COPY.BD540,CLASS=A,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//****     USER=#DOADTS,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//**
+//   SET LVLNODE='PROD'
+//   SET LGDGVRS='.VX6'
+//**
+//**                            ES202 EXTRACT (MOVE TO TAPE FROM DASD)
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSPRINT DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//INDD01  DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT&LGDGVRS.,
+//         DISP=SHR
+//OUTDD02  DD  DSN=DOESTAX.PROD.BD540.ES202IMT(+1),
+//             DISP=(NEW,CATLG,DELETE),
+//             UNIT=CART,
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
+//SYSIN   DD *
+   REPRO INFILE(INDD01) OUTFILE(OUTDD02)
+/*
+//**