MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Recovering Uncatalog tapes

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Wed Jun 01, 2005 10:57 am    Post subject: Recovering Uncatalog tapes Reply with quote

Hi,
can you please tell me how to recover the tape which was uncataloged. i have the volume number and still the tape is not scratched.
Please any one help me as early as possible.

thanks
subbu
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Jun 01, 2005 11:10 am    Post subject: Reply with quote

subbuy2k,

Try this

Code:

//STEP0100 EXEC  PGM=IEFBR14                       
//*                                                 
//FILE01   DD  DSN=YOUR UNACATALOGUED TAPE DATASET,     
//             DISP=(MOD,CATLG,KEEP),
//             VOL=SER=XXXX
/*


Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Wed Jun 01, 2005 11:27 am    Post subject: Reply with quote

Kolusu,
The job ran fine, but the dataset is not recovered. Actually the tape is a GDG. so do i have to give any other file name to copy

Thanks
subbu
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Jun 01, 2005 12:10 pm    Post subject: Reply with quote

subbuy2k,

Try this

Code:

//STEP0100 EXEC PGM=IDCAMS     
//SYSPRINT DD  SYSOUT=*       
//SYSIN    DD  *               
  DEFINE NONVSAM                               -
       (NAME(YOUR UNCATALOGUED TAPE DATASET)   -
        DEVICETYPE(TAPE)                       -
        VOLUME(xxxxx)                          -
        NORECATALOG)
/*


Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Thu Jun 02, 2005 1:03 am    Post subject: Reply with quote

Thanks a lot kolusu. It works successfully..

Regards
subbu
Back to top
View user's profile Send private message
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Thu Jun 02, 2005 8:48 am    Post subject: Reply with quote

Kolusu,
i got the tape but not able to use it. when i try to retrive the datas from that it gives me the error "VOLUME "914430" INCONSISTENT WITH UNIT TAPE "
Can you please help me as early as possible.

thanks
subbu
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Thu Jun 02, 2005 8:51 am    Post subject: Reply with quote

subbuy2k,

Please post the exact error messages with message codes.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Thu Jun 02, 2005 9:38 am    Post subject: Reply with quote

I have submitted the job to copy those tape to new dataset using both IDCAMS and Fileaid Utility. I get the following errors.

using IDCAMS utility i get the below error.
REPRO INFILE(DD01) OUTFILE(DD01O)
IDC3300I ERROR OPENING G2MK00AP.MBLC.PRIOR.BUYER.G0055V00
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12

--
When Submitted using FILEAID UTILITY i get the below errors

$$DD01 COPY
ER048-OPEN ERROR 813-04 WAS ENCOUNTERED ON DD01
.....SKIPPING TO NEXT $$DD CARD RC=12


Thanks
subbu
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Thu Jun 02, 2005 10:29 am    Post subject: Reply with quote

subbuy2k,

A return code of 04(813-04 ) means that an OPEN macro instruction was issued for a data set on magnetic tape, but the data set name on the header label did not match that in the JFCB.

For an uncataloged tape, the system only checks the last bytes 17 bytes of your DSN against what's in the tape label. So you need to make sure that the name match the last 17bytes.

The last 17 bytes in your dataset name
Code:

----+----1----+----2----+----3----
G2MK00AP.MBLC.PRIOR.BUYER.G0055V00


is

Code:

RIOR.BUYER.G0055V00


So try putting that name in quotes in repro cards and see if it works.pre-allocate the output dataset.

ex:
Code:

  REPRO IDS('RIOR.BUYER.G0055V00') -             
        ODS('YOUR OUTPUT FILE NAME') REPLACE       


If nothing works then use BLP (By pass Label processing).To use BLP code LABEL=(2,BLP) on DD stmt, which tells the program to read from the second physical label on the tape. Don't forget to specify the the DCB parameters RECFM, LRECL, and BLKSIZE when using BLP

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
subbuy2k
Beginner


Joined: 12 Aug 2004
Posts: 29
Topics: 18

PostPosted: Thu Jun 02, 2005 12:39 pm    Post subject: Reply with quote

Kolusu,
A return code of 04(813-04 ) came when i tried using Fileaid utility. While using IDCAMS I got

REPRO INFILE(DD01) OUTFILE(DD01O)
IDC3300I ERROR OPENING G2MK00AP.MBLC.PRIOR.BUYER.G0051V00


I have tried using RIOR.BUYER.G0055V00
but shows me the error

IKJ56228I DATA SET RIOR.BUYER.G0055V00 NOT IN CATALOG OR CATALOG CAN
IKJ56228I NOT BE ACCESSED


Can you please tell me how to use LABEL=(2,BLP) also which utility i have to use for this.

Thanks
subbu
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group