//ECNTSUPV JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X,                          00000010
//          NOTIFY=ECNTSUP
//**********************************************************************
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09   DD DSN=DOESTAX.PROD.VSAM.ZAIC,DISP=SHR
//OUTDD01 DD  DSN=DOESTAX.PROD.NAIC.DD081319,
//*           UNIT=CART,
//            UNIT=SYSDA,
//*           LABEL=(1,SL,,,EXPDT=99000),
//*           DISP=(,CATLG,DELETE),
//            DISP=SHR,
//            SPACE=(31552,(200,200),RLSE),
//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//****
  REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************