View previous topic :: View next topic |
Author |
Message |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Wed Jun 01, 2005 10:57 am Post subject: Recovering Uncatalog tapes |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Wed Jun 01, 2005 11:10 am Post subject: |
|
|
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 |
|
 |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Wed Jun 01, 2005 11:27 am Post subject: |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Wed Jun 01, 2005 12:10 pm Post subject: |
|
|
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 |
|
 |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Thu Jun 02, 2005 1:03 am Post subject: |
|
|
Thanks a lot kolusu. It works successfully..
Regards
subbu |
|
Back to top |
|
 |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Thu Jun 02, 2005 8:48 am Post subject: |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Thu Jun 02, 2005 8:51 am Post subject: |
|
|
subbuy2k,
Please post the exact error messages with message codes.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
 |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Thu Jun 02, 2005 9:38 am Post subject: |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Thu Jun 02, 2005 10:29 am Post subject: |
|
|
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 |
|
 |
subbuy2k Beginner
Joined: 12 Aug 2004 Posts: 29 Topics: 18
|
Posted: Thu Jun 02, 2005 12:39 pm Post subject: |
|
|
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 |
|
 |
|
|