IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need Help in ADRDSSU
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Learncoholic

New User


Joined: 20 Sep 2007
Posts: 97
Location: India
PostPosted: Fri Oct 17, 2008 8:28 pm
 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: 8697
Location: Dubuque, Iowa, USA
PostPosted: Fri Oct 17, 2008 8:39 pm
 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: 97
Location: India
PostPosted: Mon Oct 20, 2008 5:32 pm
 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: 8697
Location: Dubuque, Iowa, USA
PostPosted: Mon Oct 20, 2008 11:57 pm
 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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts How do I SFTP a ADRDSSU file from mai... IBM Tools 4
No new posts adrdssu for copy all data JCL & VSAM 5
No new posts adrdssu tool to dump a files from a PDS JCL & VSAM 5
No new posts ADRDSSU BY(REFDT... not selecting cor... IBM Tools 3
No new posts Invoking adrdssu using attchmvs IBM Tools 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us