Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ADRDSSU VSAM Restore

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 159
Location: Chennai

PostPosted: Fri Jan 11, 2013 2:53 pm    Post subject: ADRDSSU VSAM Restore
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Fri Jan 11, 2013 3:07 pm    Post subject: Reply to: ADRDSSU VSAM Restore
Reply with quote

That's all well and good, but you've forgotten to tell us what the problem is.
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 159
Location: Chennai

PostPosted: Fri Jan 11, 2013 3:14 pm    Post subject:
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Fri Jan 11, 2013 3:48 pm    Post subject:
Reply with quote

ADR141E (ttt)-mmmmm(yy), ERROR IN DATA SET NAME dsname

GDG relative generation filtering was used with RENAME or RENAMEUNCONDITIONAL.
Back to top
View user's profile Send private message
Pete Wilson

Active User


Joined: 31 Dec 2009
Posts: 440
Location: London

PostPosted: Fri Jan 18, 2013 5:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 159
Location: Chennai

PostPosted: Thu Feb 14, 2013 12:00 pm    Post subject: Reply to: ADRDSSU VSAM Restore
Reply with quote

Thanks for the kind info ,This is really Helpful
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts VSAM Space Allocation mrgnndhmk JCL & VSAM 7 Sat Apr 22, 2017 12:42 am
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts VSAM RLS=NRI while doing IDCAMS sheersh JCL & VSAM 1 Tue Mar 07, 2017 1:55 pm
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us