DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSTP54X.jcl

@@ -0,0 +1,26 @@
+//DTSTP54X 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='YRQ024'
+//  SET LGDGVRS='(+0)'
+//****
+//**    THIS JOB TRANSFERS THE QTRLY OUTPUT OF RUNRQ540 (ES202 DATA)
+//**    TO A DISK FILE FOR OTHER ANALYSES
+//****
+//STEPCPY1 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01  DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT&LGDGVRS.,
+//         DISP=SHR
+//INDD02  DD DSN=DOESTAX.&LVLNODE..ES202IMT.&LYRQTR.,
+//         DISP=(NEW,KEEP,DELETE),
+//         SPACE=(CYL,(25,5),RLSE),
+//         DCB=(RECFM=FB,LRECL=1364,BLKSIZE=27280)
+//SYSIN   DD *
+   REPRO INFILE(INDD01) OUTFILE(INDD02)
+/*
+//**