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
 
Need Help in ADRDSSU

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

New User


Joined: 20 Sep 2007
Posts: 86
Location: India

PostPosted: Fri Oct 17, 2008 8:28 pm    Post subject: Need Help in ADRDSSU
Reply with quote

Hi,

I have the JOB below to dump a huge VSAM file into tape and then restore it back using ADRDSSU.

Code:
//STEP0000 EXEC PGM=IEFBR14                               
//DD01     DD DSN=TEMPORAY.BACKUP.FILE,       
//            UNIT=(TAPE3,,DEFER),DISP=(MOD,DELETE,DELETE)

//BACKUP01 EXEC PGM=ADRDSSU,REGION=8192K,TIME=0010         
//SYSPRINT DD SYSOUT=*                                     
//OFFSITE  DD DSN=TEMPORAY.BACKUP.FILE,       
//            DISP=(,CATLG,DELETE),UNIT=TAPE3,             
//            VOL=(,,,30),LABEL=(1,RETPD=45)               
//SYSIN    DD *                                           
 DUMP OUTDD(OFFSITE)                      -               
      DS(INCL(ACTUAL.HUGE.VSAM.FILE))      -             
      CONCURRENT SHARE TOL(ENQF)  ALLDATA(*) ALLEXCP       
/*                                                         

//DELDEF02 EXEC PGM=IDCAMS,REGION=3000K COND=(0,LE)               
//SYSPRINT DD SYSOUT=*                                             
//SYSIN DD *                                                       
 DELETE (RESTORED.FROM.TEMPORARY.FILE) PURGE CLUSTER
 IF MAXCC LE 8 THEN SET MAXCC = 0                                 
 DEFINE CLUSTER (NAME(RESTORED.FROM.TEMPORARY.FILE) -
                 UNIQUE                                       -   
                 SHR (2 3)                                    -   
                 MGMTCLAS(D32M)                                   -
                 VOL(* * * * * * * * * * * * * * * * * * * * * *) -
                 DATACLAS(EXTADRC))                               -
        DATA    (NAME(RESTORED.FROM.TEMPORARY.FILE.DATA) -
                 RECORDSIZE(1113 1114)                        -   
                 FREESPACE(10 5)                              -   
                 CISZ(18432)                                  -   
                 KEYS(24 0)                                   -   
                 ORDERED                                      -   
                 SPEED                                        -   
                 CYL(600 600))                                -   
        INDEX   (NAME(RESTORED.FROM.TEMPORARY.FILE.INDEX) -
                 CISZ(2048)                                   -
                 CYL(38 1))                                   

//RSTRO01B EXEC PGM=ADRDSSU,REGION=8192K,TIME=0010             
//SYSPRINT DD SYSOUT=*                                         
//DASD1    DD DSN=TEMPORAY.BACKUP.FILE,DISP=SHR   
//SYSIN    DD *                                               
 RESTORE INDD(DASD1)  -                                       
 DS(INCL(RESTORED.FROM.TEMPORARY.FILE)) -
  REPLACEUNCONDITIONAL                                         
/*   


The BACKUP01 step is executing fine. However the retore step is throwing up error as:

Code:
NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME     
DATA SET RESTORED.FROM.TEMPORARY.FILE NOT ON LOGICALLY FORMATTED DUMP TAPE


I have tried to copy data into this file RESTORED.FROM.TEMPORARY.FILE using FILEAID and that step went fine. So I am confused about this error. Please help me resolve this issue.

Thanks and Regards
Learncoholic
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Fri Oct 17, 2008 8:39 pm    Post subject:
Reply with quote

Code:
//RSTRO01B EXEC PGM=ADRDSSU,REGION=8192K,TIME=0010             
//SYSPRINT DD SYSOUT=*                                         
//DASD1    DD DSN=TEMPORAY.BACKUP.FILE,DISP=SHR   
//SYSIN    DD *                                               
 RESTORE INDD(DASD1)  -                                       
 DS(INCL(ACTUAL.HUGE.VSAM.FILE)) -
  RENAMEUNCONDITIONAL((ACTUAL.HUGE.VSAM.FILE -
                       RESTORED.FROM.TEMPORARY.FILE)) -
  REPLACEUNCONDITIONAL                                         
/*   
If you do a logical dataset dump, you've got to restore the same dataset -- even if you rename it to something else.
Back to top
View user's profile Send private message
Learncoholic

New User


Joined: 20 Sep 2007
Posts: 86
Location: India

PostPosted: Mon Oct 20, 2008 5:32 pm    Post subject:
Reply with quote

Hi Robert,

Your suggestion worked out fine.
Thanks for your support.


Thanks and Regards
Subhro
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Mon Oct 20, 2008 11:57 pm    Post subject:
Reply with quote

Subhro -- glad to hear it worked.
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 ADRDSSU Restore - How to prevent repl... Lipi.Prasannan JCL & VSAM 12 Fri Oct 02, 2015 12:13 am
No new posts Copy tape files using ADRDSSU Bewildered SYNCSORT 4 Mon Sep 15, 2014 5:13 pm
No new posts ADRDSSU Utility to RESTORE onto SMS-M... Robert Sample JCL & VSAM 12 Sun Sep 01, 2013 8:01 pm
No new posts ADRDSSU: Restore VSAM and rename expat JCL & VSAM 3 Wed Aug 07, 2013 1:58 pm
No new posts ADRDSSU code scenario enrico-sorichetti JCL & VSAM 3 Fri Jan 25, 2013 2:50 pm

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