DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTPPRT.jcl

@@ -0,0 +1,35 @@
+//DTSTPPRT JOB (UI,4300,3400,T),PROD.PRINT.TAPE,
+//            MSGCLASS=X,CLASS=P,
+//****        NOTIFY=ECNTJP2,
+//            NOTIFY=ECNTSUP,
+//****        TYPRUN=SCAN,
+//****        USER=#DOADTS,
+//            REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//****
+//*  PRINT A (GIVEN NUMBER OF RECORDS) FROM A DATA SET {FROM CART}
+//****
+//  SET    LHOLD='YES'
+//  SET   LINDSN='DOESTAX.PROD.DTSFACER'
+//  SET  LVOLSER='104803'
+//****
+//*    PRT 1ST XXX (200) TAPE RECORDS
+//****
+//STEP0300 EXEC PGM=IDCAMS,
+//          COND=(0,LT)
+//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
+//          HOLD=&LHOLD.
+//FILEIN   DD DSN=&LINDSN.,
+//****            UNIT=SYSDA,
+//            UNIT=CART,
+//            VOL=SER=&LVOLSER.,
+//            DISP=(OLD,KEEP)
+//****            SPACE=(CYL,(1,1),RLSE),
+//****            DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
+//SYSIN    DD  *
+ PRINT -
+   INFILE (FILEIN) -
+   COUNT (200)
+/*
+//****