Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 213
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: 7314

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: 213
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: 2459
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: 461
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: 213
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 How to manage VSAM file update confli... ocjohnh JCL & VSAM 2 Sat Jul 21, 2018 6:04 am
No new posts Invoking adrdssu using attchmvs harisukumaran IBM Tools 5 Tue Jun 05, 2018 3:30 am
No new posts Not able to export the VSAM cluster sandeep kumar302 JCL & VSAM 6 Fri May 04, 2018 12:42 pm
No new posts Cannot change DATACLAS on DFSMSdss re... Alan Playford JCL & VSAM 11 Tue May 01, 2018 6:43 pm
No new posts IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 12 Tue Apr 17, 2018 10:42 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us