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
 
how to read tape with no label

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: how to read tape with no label
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: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Thu Sep 02, 2010 10:57 pm    Post subject:
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

Site Director


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

PostPosted: Thu Sep 02, 2010 11:53 pm    Post subject:
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    Post subject: Reply to: how to read tape with no label
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

Site Director


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

PostPosted: Fri Sep 03, 2010 12:11 am    Post subject:
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    Post subject:
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    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 how to see when the last read access ... Mike 1304 DB2 1 Tue Sep 12, 2017 7:52 pm
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Length of Tape file Mohan Kothakota JCL & VSAM 9 Thu Apr 20, 2017 10:24 pm
No new posts Read of TDQ fails in LENGERR Tracy Hansen CICS 10 Wed Apr 05, 2017 12:10 am

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