View previous topic :: View next topic
|
Author |
Message |
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Hi,
I am trying to restore some of the VSAM Files, where in prod it basically like below, which restore the prod vsam files. What i need is, to restore file to test VSAM file example XPN.XX.VSAM.File (Prod) , i need XDN.XX.VSAM File (DEV).
Code: |
//xxxxR EXEC PGM=ADRDSSU,REGION=4M
//****************************
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//****************************
//* INPUT FILE *
//****************************
//RESTORDD DD DSN=XPX.XCS.YYY.ZZZ.BACKUP(0),
// DISP=OLD
//****************************
//* OUTPUT FILE *
//****************************
//* OUTPUT FILE *
//****************************
//SYSIN DD *
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**))
//
|
Please help me on this.
Regards,
Magesh |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
That's all well and good, but you've forgotten to tell us what the problem is. |
|
Back to top |
|
|
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
The above jcl copies file from GDG to differnt VSAM file. The VSAM file will in form XPX.XPY.**, I need to copy same to XDX.XCX.** I tried like below, but no joy, I am getting following error
Code: |
RESTORE INDD(RESTORDD) -
REPLACE -
SPHERE -
TGTALLOC(SOURCE) -
DS(INCL(**)) -
RENUNC((XPX.XCX.**), -
(XDX.XCX.**))
|
Getting following error.
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2013.010 08:28:26 INITIAL SCAN OF USER CONTROL STATEMEN
ADR141E (001)-RI03 (02), ERROR IN DATA SET NAME XPX.XCX.**
ADR017E (001)-CLTSK(01), 2013.010 08:28:26 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2013.010 08:28:26 DFSMSDSS PROCESSING COMPLETE. HIGHEST IGHEST RETURN CODE IS 0008 FROM:
SYNTAX
TASK 001 |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
ADR141E (ttt)-mmmmm(yy), ERROR IN DATA SET NAME dsname
GDG relative generation filtering was used with RENAME or RENAMEUNCONDITIONAL. |
|
Back to top |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009 Posts: 580 Location: London
|
|
|
|
Change this from:
RENUNC((XPX.XCX.**), -
(XDX.XCX.**))
to this, and it will work fine...
RENUNC( -
(XPX.XCX.**, -
XDX.XCX.**) -
)
each pair of source and target names or name masks must be within a pair of brackets. |
|
Back to top |
|
|
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Thanks for the kind info ,This is really Helpful |
|
Back to top |
|
|
|