//ECNTJ540 JOB (UI,4300,3400,T),COPY.BD540,CLASS=A,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//****     USER=#DOADTS,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//**
//   SET LVLNODE='PROD'
//   SET LGDGVRS='.VX6'
//**
//**                            ES202 EXTRACT (MOVE TO TAPE FROM DASD)
//STEP0100 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//INDD01  DD DSN=DOESTAX.&LVLNODE..BD540.ES202IMT&LGDGVRS.,
//         DISP=SHR
//OUTDD02  DD  DSN=DOESTAX.PROD.BD540.ES202IMT(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=CART,
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
//SYSIN   DD *
   REPRO INFILE(INDD01) OUTFILE(OUTDD02)
/*
//**