ADRDSSU



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

ADRDSSU

Postby deucalion0 » Thu Jun 25, 2015 10:41 pm

Hello all, I hope you are well!!

I am struggling to figure out how to do something which I would assume is a simple task. I have tried looking through the IBM documentation, but I cannot seem to find a straight forward source which would explain the syntax for a RESTORE. I have tried this the whole day, and not managing so far, perhaps what I want to do cannot be done.

I have 3 datasets, I have dumped them. I want to restore them but with different names. For example:

Dumped datasets:

DATA.SET.ONE
DATA.SET.TWO
DATA.SET.THREE

I want to restore the dump to:

DATA.SET.FOUR
DATA.SET.FIVE
DATA.SET.SIX

Here is the control statement in my job from which I am trying to do this:

 RESTORE   DATASET (INCL(       -
                   **           -
                              ) -
                              ) -
           RENAMEU(**.**.**,    -
           **.**.FOUR)          -
           INDDNAME(DUMPIN)     -
           TGTALLOC(SRC)        -
           TOL(ENQF)             


I have experimented, and mainly get JCL errors.

If anyone can point me to a clear description of how the RESTORE statements work, that would be great!!


Thank you!!!
deucalion0
 
Posts: 55
Joined: Thu Jul 31, 2014 3:47 pm
Has thanked: 31 times
Been thanked: 0 time

Re: ADRDSSU

 

Re: ADRDSSU

Postby NicC » Thu Jun 25, 2015 10:51 pm

If it was a JCL error then show the JCL and the error message(s).
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2702
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisys (almost)
Has thanked: 4 times
Been thanked: 105 times

Re: ADRDSSU

Postby Karzos » Thu Jun 25, 2015 10:52 pm

Hi ,

We can use RENUNC option in JCL
//STEP      EXEC  PGM=ADRDSSU,REGION=6M,TIME=1440           
//SYSPRINT  DD SYSOUT=*                                     
//OU1    DD DISP=SHR,DSN=A041426.DUMP.OUTPUT                 
//SYSIN     DD    *                                         
  RESTORE DATASET( -                                         
       INCLUDE(A041426.TEST.NDM, -                           
               A041426.TEST1.NDM, -                         
               A041426.TEST2.NDM)) -                         
       INDDNAME(OU1) -                                       
       RENUNC((A041426.TEST.NDM,A041426.TEST.NDM.REST) -     
       (A041426.TEST1.NDM,A041426.TEST1.NDM.REST) -         
       (A041426.TEST2.NDM,A041426.TEST2.NDM.REST))           


In above code we dumped three datasets in A041426.DUMP.OUTPUT. While restoring we rename it to new name.
"Die with memories, not with dreams"
Karzos
 
Posts: 3
Joined: Thu Jun 25, 2015 8:50 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ADRDSSU

Postby Robert Sample » Thu Jun 25, 2015 10:58 pm

Karzos, are you aware that RENAMEU and RENUNC are the same option of ADRDSSU?

deucalion0, what you posted that you want to do and what your ADRDSSU command does are completely different. Your posted ADRDSSU statement will attempt to rename ALL data sets with a low-level qualifier of .FOUR -- which Is not what you indicated you wanted to do. Try something like (untested):
RENUNC( (DATA.SET.ONE,DATA.SET.FOUR),(DATA.SET.TWO,DATA.SET.FIVE)....

These users thanked the author Robert Sample for the post:
deucalion0 (Thu Jun 25, 2015 11:42 pm)
Robert Sample
Global moderator
 
Posts: 3375
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 224 times

Re: ADRDSSU

Postby deucalion0 » Thu Jun 25, 2015 11:44 pm

Thank you for your feedback guys, it is appreciated!!

I tried your example Robert and I got it to work, so thank you!!!!

That is another JCL for my library now :)

Cheers!!!
deucalion0
 
Posts: 55
Joined: Thu Jul 31, 2014 3:47 pm
Has thanked: 31 times
Been thanked: 0 time

Re: ADRDSSU

Postby Robert Sample » Fri Jun 26, 2015 3:35 am

Glad to hear you got it working.
Robert Sample
Global moderator
 
Posts: 3375
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 224 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post