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

how to read tape with no label


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
steves

New User


Joined: 26 Feb 2007
Posts: 30
Location: chicago

PostPosted: Thu Sep 02, 2010 10:49 pm
Reply with quote

I'm trying to copy a file from an old tape ( about 20 years old)

When I use batch file aid I get this message :ER048-OPEN ERROR 813-04
The operator says this means the tape has no label
I've tried IEBEGENER, AND SORT as well
I've tried using parameter VOL=SER=nnnnnn
tried, LABEL = NL, UNIT=TAPE
Can't find any examples on line

Any thoughts would be appreciated
thanks
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Sep 02, 2010 10:57 pm
Reply with quote

My first thought is that tapes deteriorate over time -- anything more than five years old, I've heard, is basically sheer luck whether or not you can retrieve any data from it.

Do you have a TAPEMAP utility you can run on the tape? That would tell you a lot -- if it is available.

Code:
//SYSUT1 DD DISP=OLD,DSN=A,LABEL=(1,NL),UNIT=TAPE (or whatever you use)
with an appropriate DCB should allow reading the tape -- if there is still data available on it. Use a DSN that won't cause you RACF problems -- if the tape is not labeled, there won't be an issue and if the tape is labeled you'll get back a message with the DSN as recorded on the label.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Sep 02, 2010 11:53 pm
Reply with quote

Hello,

If you have SAS, try this:
Code:
//STEP2    EXEC PROC=SAS       
//SAS.FT11F001  DD SYSOUT=*   
//SAS.FT12F001  DD SYSOUT=*   
//TAPE DD DSN=TAPE.DUMMY,DISP=OLD,UNIT=whatever,     
//     VOL=SER=xxxxxx                                                             
//SAS.SYSIN DD *                                         
PROC TAPELABEL DDNAME=TAPE;     

or this if SAS is not available:
Code:
//S1 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=* 
//SYSUT1   DD DSN=MY.MYSTCART,UNIT=whatever,DISP=OLD,               
//            LABEL=(1,BLP),VOL=SER=xxxxxx,DCB=(BLKSIZE=80,LRECL=80)
//SYSUT2   DD SYSOUT=*                                               
//SYSIN    DD DUMMY


It has been an ugly copy/paste day, so apologies if i've fat-fingered anything and not caught it. . .
Back to top
View user's profile Send private message
steves

New User


Joined: 26 Feb 2007
Posts: 30
Location: chicago

PostPosted: Fri Sep 03, 2010 12:07 am
Reply with quote

well I must have sheer luck, this client has 25 tapes from 1985 to 1990. I've managed to read and exract data from 24 of them. This is the last tape.
No SAS and no TAPEMAP

My GENER gets a message : JOB CANCELLED BY INSTALLATION EXIT - IEFUJV My Fileaid got this: ER048-OPEN ERROR 813-04
but I've tried lots of different combinations of things, with different error messages



//COPY EXEC PGM=IEBGENER
//SYSUT1 DD DISP=OLD,DSN=A,LABEL=(1,NL),UNIT=TAPE,
// VOL=SER=129008
//SYSUT2 DD DSN=DS06008.FR90000.A02.NFRIMS91,DISP=(,CATLG,CATLG),
// DCB=(XX90000.A00.MODLDSCB)
// UNIT=SYSDA,(CYL,(250,500),RLSE),


//STEP01 EXEC PGM=FILEAID
//DD01 DD DSN=FR90000.A02.NFIRMS91,DISP=OLD,UNIT=TAPE,
// VOL=SER=129008,LABEL=(1,NL)
// DCB=(RECFM=FB,LRECL=108,BLKSIZE=0)
//DD01O DD DSN=DS06008.FR90000.A02.NFIRMS91,
// DCB=(XX90000.A00.MODLDSCB),DISP=(,CATLG,DELETE),
// SPACE=(CYL,(250,500),RLSE),
// UNIT=SYSDA

[/img][/code]
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Sep 03, 2010 12:11 am
Reply with quote

Hello,

Your site may be blocking attempts to use BLP or NL processing. . . Many do.

Suggest you work with the storage management people to determine what (if anything) is physically on the tape. Then go from there.
Back to top
View user's profile Send private message
steves

New User


Joined: 26 Feb 2007
Posts: 30
Location: chicago

PostPosted: Fri Sep 03, 2010 12:14 am
Reply with quote

OK, I'LL TRY THANKS
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 Error to read log with rexx CLIST & REXX 11
No new posts Random read in ESDS file by using RBA JCL & VSAM 6
No new posts Deleting a Tape file JCL & VSAM 14
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
No new posts ICETOOL to Read records SMF CEF it is... DFSORT/ICETOOL 4
Search our Forums:

Back to Top