DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTP540.jcl

@@ -0,0 +1,36 @@
+//DTSTP540 JOB (UI,4300,3400,T),PROD.BD540.TAPEOUT,                     00000010
+//          CLASS=P,MSGCLASS=X,                                         00000010
+//****      TYPRUN=SCAN,
+//          NOTIFY=ECNTSUP,REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//****
+//  SET LVLNODE='PROD'
+//  SET  LYRQTR='YRQ094'
+//  SET LGDGVRS='(+0)'
+//  SET LVOLSER='X00045'
+//****
+//****  CALL ODC1 FOR TAPE NUMBER BEFORE RUNNING THIS JOB
+//****     OPERATORS AT 442-3299 OR PAT ALSTON 442-3280
+//****
+//**    THIS JOB TRANSFERS THE QTRLY OUTPUT OF RUNRQ540 (ES202 DATA)
+//**    TO A TAPE FOR SHIPMENT TO AND PROCESSING BY B.L.S.
+//****
+//****  CREATE OUTSIDE TAPE IN CILO YOU MUST USE;
+//****    UNIT=CART90 AND YOUR DATASET NAME MUST START WITH MAILOUT.
+//****
+//STEPCPY1 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01  DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT&LGDGVRS.,
+//         DISP=SHR
+//INDD02  DD DSN=MAILOUT.DOESTAX.&LVLNODE..ES202IMT.&LYRQTR.,
+//         UNIT=CART90,
+//         VOL=SER=&LVOLSER.,
+//***      VOLUME=(,RETAIN),
+//         DISP=(NEW,KEEP,DELETE),
+//         LABEL=(1,SL,EXPDT=98000),
+//         DCB=(RECFM=FB,LRECL=1364,BLKSIZE=27280)
+//SYSIN   DD *
+   REPRO INFILE(INDD01) OUTFILE(INDD02)
+/*
+//