//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.PROCS.BATCH.LIB    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)
/*
//**