Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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: 7312

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: 2473
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: 480
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 VSAM Open During Copy-Excessive EXCP ... David Beckham JCL & VSAM 1 Sat Jun 27, 2020 5:23 pm
No new posts Unable to download the JDBC driver to... mrayandutta Java & MQSeries 1 Tue Apr 28, 2020 8:59 pm
No new posts Modify the shareoptions of VSAM in De... chavinash2004 CLIST & REXX 30 Wed Feb 26, 2020 6:28 pm
No new posts Rexx to create VSAM define statements Dinesh Mani CLIST & REXX 10 Fri Nov 29, 2019 9:26 pm
No new posts adrdssu for copy all data robyjhl JCL & VSAM 5 Tue Nov 12, 2019 11:17 pm

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