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
 

 

File Handling Error SB14 R=04

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Mon Sep 14, 2009 7:40 pm    Post subject: File Handling Error SB14 R=04
Reply with quote

Hello,
I am facing some issues while closing an sequential file

Code:
//RULE     DD  DSN=T0084GK.AA.DECMP(ABC),DISP=SHR


Code:
FILE-CONTROL. 
SELECT RULE   ASSIGN TO UT-S-RULE       
FILE STATUS IS FS3.       
.
.
.
DATA DIVISION.     
FILE SECTION.                   
FD   RULE                                 
     RECORDING MODE IS V                   
     LABEL RECORDS ARE STANDARD           
     BLOCK CONTAINS 0 RECORDS             
     DATA RECORD IS RUL-REC.               
01   RUL-REC PIC X(251).                   
.
.
PROCEDURE DIVISION.   
.
.
OPEN EXTEND RULE. 
.
.
MOVE NEW-RUL TO RUL-REC.         
WRITE RUL-REC.
.
.
CLOSE RULE.   



While Closing file i am getting following error.

Code:
CEE35I is a severity or class 4 condition.
The operating system has generated the following message:       
   CEE3250C The system or user abend SB14  R=00000004 was issued.



AND IDIREPRT of SDSF

Code:
A system abend B14 reason code X'4' occurred in module IGZEQOC at offset       
X'1664'.                                                                       
                                                                               
There was an unsuccessful CLOSE of file RULE in module ADSO783Z program ADSO783
at offset X'8B0'.The file status code was 90which indicates:               
                                                                               
Implementor-defined condition.
                                                                               
The data set name was T0084GK.AA.DECMP(ABC).




SYSOUT Shows:
Code:
FILE STATUS RULE:00                                                             
CEE3250C The system or user abend SB14  R=00000004 was issued.                 
         From compile unit ADSO783Z at entry point ADSO783Z at statement 128 at compile unit offset +000008B0 at entry offset +000008B0 at address 1B200AD8.



Thanks In Advance:
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Sep 14, 2009 7:52 pm    Post subject: Reply to: File Handling Error SB14 R=04
Reply with quote

You cannot use OPEN EXTEND with PDS members
Back to top
View user's profile Send private message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Mon Sep 14, 2009 7:55 pm    Post subject:
Reply with quote

Thanks Erico Sorichetti for early reply.
But how to implement append records in member of PDS??

Thanks.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Mon Sep 14, 2009 7:57 pm    Post subject: Reply to: File Handling Error SB14 R=04
Reply with quote

Wasn't this whole issue already covered here:

http://www.ibmmainframes.com/viewtopic.php?t=43791
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8118
Location: East Dubuque, Illinois, USA

PostPosted: Mon Sep 14, 2009 8:04 pm    Post subject:
Reply with quote

The Messages and Codes manual for IEC217E states for reason code 4:
Quote:
04
A duplicate name was found in the directory of a partitioned data set. The CLOSE routine attempted to add a member name to the directory using the STOW macro instruction, but a code of 4 was returned, indicating that the member already exists. Specify a different member name, or remove the old member name using the IEHPROGM utility, or specify DISP=OLD on the DD statement.
Guarav, this should tell you that what you are attempting cannot be done in the way you are doing it. Your choices are:
1) use DISP=OLD and forget the idea of appending to a PDS member
2) create a sequential file copy of the PDS member, append to the sequential file, then copy back (DISP=OLD) to the PDS
Back to top
View user's profile Send private message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Mon Sep 14, 2009 8:08 pm    Post subject:
Reply with quote

I am sorry, the issue that post is just putting light on writing in a member of PDS,
I need to append new record in that member, with leaving previous records as it is.

when i am opening the file RULE in
1) OUTPUT
it is writing the desired record in file but deletes the previous data.
2) I-O (and read till the last record then writing)
it overwrites the last record.
3) EXTEND
It is throing the above error.

It is clear now that i cant use EXTEND in Member of PDS.
But it is still a mystry to append a new record in a member of PDS.

Thanks.
Back to top
View user's profile Send private message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Mon Sep 14, 2009 8:12 pm    Post subject:
Reply with quote

@ Robert Sample.
I was just looking for some good way to implement this.
looks like this is the only option left with me now.
Thanks Robert for sharing the above knowledge.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8118
Location: East Dubuque, Illinois, USA

PostPosted: Mon Sep 14, 2009 8:18 pm    Post subject:
Reply with quote

Quote:
I was just looking for some good way to implement this.
There is no way to do it -- you cannot append to a PDS member. Period. You can replace the entire member, but you cannot append to it. If you think about the physical structure of a PDS, you will understand why the system does not allow you to append.
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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