You could also try this:
//JS010 EXEC PGM=ADRDSSU
//*
//SYSPRINT DD SYSOUT=*
//INVOL1 DD VOL=SER=MVARS1,UNIT=3390,DISP=OLD
//OUTVOL1 DD VOL=SER=MVARSA,UNIT=3390,DISP=OLD
//SYSIN DD *
COPY INDDNAME(INVOL1) OUTDDNAME(OUTVOL1) -
ALLDATA(*) -
ALLEXCP -
CAN
/*
This will also copy the vtocix & vvds.
Thanks
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of retired mainframer
Sent: Wednesday, May 21, 2014 8:45 AM
To: [email protected]
Subject: Re: copy data issue
Any catalogued datasets that are processed will not have the copies catalogued.
This is OK for most non-VSAM but not for VSAM. Either exclude VSAM dataset
from processing (the BY operand) or specify one of the CATALOG/RECATALOG
options. One of RENAME options could also work.
:>: -----Original Message-----
:>: From: IBM Mainframe Discussion List [mailto:[email protected]] On
:>: Behalf Of Mainframe Mainframe
:>: Sent: Wednesday, May 21, 2014 1:16 AM
:>: To: [email protected]
:>: Subject: copy data issue
:>:
:>: Hello,
:>: I am trying for volume level copy of datasets but getting
:>: below
:>: error for some of the dataset.
:>:
:>: //COPY10 EXEC PGM=ADRDSSU
:>: //SYSPRINT DD SYSOUT=*
:>: //IN1 DD DISP=SHR,UNIT=3390,VOL=SER=USER01
:>: //OT1 DD DISP=SHR,UNIT=3390,VOL=SER=USER02
:>: //SYSIN DD *
:>: COPY DATASET( -
:>: INCLUDE(**) -
:>: EXCLUDE(SYS1.VTOCIX.**, -
:>: SYS1.VVDS.**, -
:>: ) ) -
:>: INDDNAME(IN1) -
:>: OUTDDNAME(OT1) -
:>: ALLDATA(*) -
:>: ALLEXCP -
:>: TOL(ENQF) -
:>: CANCELERROR
:>: /*
:>:
:>:
:>: 0ADR411W (001)-DDFLT(02), DATA SET SYSL.SMS1.ACDS IN CATALOG
:>: TST.MASTER.CATALOG ON VOLUME USER01 WAS NOT SERIALIZED ON REQUEST
:>: 0ADR468E (001)-DDFLT(04), VSAM DATA SET SYSL.SMS1.ACDS IN CATALOG
:>: TST.MASTER.CATALOG IS NOT PROCESSABLE
:>: 0ADR411W (001)-DDFLT(02), DATA SET SYSL.SMS1.COMMDS IN CATALOG
:>: TST.MASTER.DATA ON VOLUME USER01 WAS NOT SERIALIZED ON REQUEST
:>:
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
******* CONFIDENTIALITY NOTICE *******
This e-mail message and all attachments transmitted with it may
contain legally privileged and confidential information intended
solely for the use of the addressee. If the reader of this message
is not the intended recipient, you are hereby notified that any
reading, dissemination, distribution, copying, or other use of this
message or its attachments is strictly prohibited. If you have
received this message in error, please notify the sender
immediately and delete this message from your system. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
