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: 212
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: 212
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: 2446
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: 445
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: 212
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 Where to get sample for processing RM... vice_versa PL/I & Assembler 2 Tue Jan 16, 2018 2:03 pm
No new posts VSAM dataset not found abdulrafi JCL & VSAM 5 Fri Jan 12, 2018 11:19 am
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm

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