Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Getting 47 in VSAM File read

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rexx77

New User


Joined: 14 Apr 2008
Posts: 73
Location: Mysore

PostPosted: Sat Jul 04, 2009 8:26 pm    Post subject: Getting 47 in VSAM File read
Reply with quote

Greetings.

My JCL executes a program to read a VSAM file. Who ever devloped the code did not check the VSAM Staus after Opening the file. After read only they are checking whether READ is success or not.

I am getting VSAM status 47, i knew that READ has been tried on a file which is not opened in Input or I-O mode. But i could able to see the file Open statement (I-O Mode) in program before the READ.

I appreciate if some one could throw some information on this?
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7932
Location: Bellevue, IA

PostPosted: Sat Jul 04, 2009 8:41 pm    Post subject:
Reply with quote

If the OPEN failed, the 47 would follow naturally. You need to check the file status code after the OPEN to verify that you can proceed.
Back to top
View user's profile Send private message
rexx77

New User


Joined: 14 Apr 2008
Posts: 73
Location: Mysore

PostPosted: Sat Jul 04, 2009 9:00 pm    Post subject:
Reply with quote

Unfortunately i dont have permission to edit the program and recompile it. The dataset i wanted to read is accessed by many programs. Is it causing any issues?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7932
Location: Bellevue, IA

PostPosted: Sat Jul 04, 2009 9:24 pm    Post subject:
Reply with quote

Possibly -- if you've got DISP=SHR specified and attempt to open the file I-O, I'm not sure what file status code would be generated. Try running with DISP=OLD and I think the read 47 file status will go away.

I also recommend you get somebody to add the OPEN file status check to the code and recompile it since it really should be done sooner or later.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sat Jul 04, 2009 9:36 pm    Post subject:
Reply with quote

Quote:
...be done sooner or later.


and his manager says:
but that costs money.. the next guy can do it, or i'll do it when i really really have to.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7932
Location: Bellevue, IA

PostPosted: Sat Jul 04, 2009 9:52 pm    Post subject:
Reply with quote

Sigh. Tell me about it, Dick -- I work for a newspaper!
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1224
Location: Israel

PostPosted: Sun Jul 05, 2009 9:08 pm    Post subject:
Reply with quote

Why do today what somebody else can do tomorrow?
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 Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts Underlying DB2 VSAM LDS - SMF recording vasanthz All Other Mainframe Topics 6 Thu Jan 05, 2017 4:20 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us