//ECNTGD1V JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X,                          00000010
//          NOTIFY=ECNTSUP
//**********************************************************************
//*
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09   DD DSN=DOESTAX.DEVL.CHGM002,DISP=SHR
//OUTDD01  DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR
//SYSIN    DD *
  REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************