DUTAS re-platformed to Raincode - Initial Source Code

JCL/TPLOAD1.jcl

@@ -0,0 +1,27 @@
+//DTSCHRGI JOB (UI,4300,3400,T),TEST.FACHRGS.IN,
+//         CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//****
+//  SET  FAFILE='D9.F13667.W200141'
+//  SET TVOLSER='DI0062'
+//****
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//INDD01   DD DSN=&FAFILE.,
+//          UNIT=CART,
+//          VOL=SER=&TVOLSER.,
+//          LABEL=(1,SL,EXPDT=98000),
+//          DISP=SHR
+//**
+//OUTDD01 DD  DSN=DOESTAX.CONV.IRS.DARLENE,
+//            DISP=(,CATLG,DELETE),
+//            SPACE=(31552,(100,200),RLSE),
+//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=544,BLKSIZE=31552)
+//****
+//SYSIN   DD  *
+    REPRO  INFILE(INDD01)  OUTFILE(OUTDD01)
+/*
+//****