//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)
/*
//