use this and let me know what you get..
//V&FRVOLSER EXEC PGM=ADRDSSU,PARM='LINECNT=9999',REGION=4M
//SYSPRINT DD SYSOUT=*
//INVOL1 DD VOL=SER=&FRVOLSER,UNIT=3390,DISP=SHR
//OUTVOL1 DD VOL=SER=&TOVOLSER,UNIT=3390,DISP=SHR
//SYSIN DD *
COPY DATASET(INCLUDE(**) -
EXCLUDE(SYS1.VTOCIX.** -
SYS1.VVDS.** -
SYS1.DUMP.** -
SYS1.MAN%.** -
SYSMCAT.** -
SYSUCAT.** -
OMVS.** -
PAGE.** -
MVSSMP*.** ) -
BY((DSORG NE VSAM), -
(DSORG NE HFS ), -
(DSORG NE ZFS ))) -
LOGINDDNAME(INVOL1) -
ALLDATA(*) -
ALLEXCP -
CANCELERROR -
BYPASSACS(**) -
FORCE -
OUTDDNAME( -
OUTVOL1 -
) -
PERCENTUTILIZED( -
100 -
) -
PROCESS(SYS1) -
REPLACE -
SHARE -
SPHERE -
TGTALLOC(SOURCE) -
TOLERATE(ENQFAILURE) -
ADMINISTRATOR
//* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
