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

Program is abending with S337 code


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
samedesh
Currently Banned

New User


Joined: 22 May 2007
Posts: 46
Location: India

PostPosted: Fri Mar 07, 2008 11:01 am
Reply with quote

Can anybody help me in solving abend S337. I'm using GDG and trying to update the file when restart occurs. By searching on net I found that S337 comes when "error occured when end of file reached".
Please help icon_sad.gif
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Fri Mar 07, 2008 11:04 am
Reply with quote

The error description for S337 should point you to look at the error message (like IEC something). What did it say?
Back to top
View user's profile Send private message
samedesh
Currently Banned

New User


Joined: 22 May 2007
Posts: 46
Location: India

PostPosted: Fri Mar 07, 2008 11:16 am
Reply with quote

It is giving me "BSAM ABEND IN SSAM PROCESSING"
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Fri Mar 07, 2008 11:25 am
Reply with quote

What are you using for the system message lookup reference?

I get z/OS V1R7.0 MVS System Codes:

Quote:

337

Explanation: The error occurred when the end of a data set was reached. This system completion code is accompanied by message IEC024I. Refer to the explanation of message IEC024I for complete information about the task that was ended and for an explanation of the return code (rc in the message text) in register 15.

Application Programmer Response: Respond as indicated for message IEC024I.

System Programmer Response: If the error recurs and the program is not in error, look at the messages in the job log for more information. Search problem reporting data bases for a fix for the problem. If no fix exists, contact the IBM Support Center. Provide the JCL, the program listing, and the compiler output for the job.

Source: DFSMSdfp


Quote:

| IEC024I 337-rc,mod, jjj,sss,ddname[-#], dev,ser,dsname( member)

Explanation: The error occurred when the end of a data set was reached.
In the message text:

rc
Associates this message with system completion code 337 and with the return code.

jjj
Job name.

sss
Step name.

ddname[-#]
DDname (followed by a concatenation number if it is part of a physical sequential concatenated data set and not the first DD statement in the concatenation).

dev
Device number.

ser
Volume serial number.

mod
The name of the module in which the error occurred.

| dsname(member)
Data set name. Member name if specified.

The explanation of the hex return code is as follows:

Return Code Explanation

04
The end of a data set was reached, but no end- of-data-set routine (EODAD) was specified in the DCB.

08
No EODAD specified in the DCB for DD DUMMY data set.


System Action: The task is ended.

Operator Response: Start a generalized trace facility (GTF) trace, and re-create the problem. Reply to message AHL100A with:

TRACE=SYS,USR,SLIP

On the DD statement for the data set in error, specify:

DCB=DIAGNS=TRACE

Application Programmer Response: Probable user error. Correct the errors causing the abnormal end as indicated by the return code in the message text. Then rerun the job.

System Programmer Response: If the error recurs and the program is not in error, look at the messages in the job log for more information. Search problem reporting data bases for a fix for the problem. If no fix exists, contact the IBM Support Center. Provide the SYSOUT output for the job.

Source: DFSMSdfp

Detecting Module: IFG0552X

Routing Code: 11

Descriptor Code: 6
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 -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
Search our Forums:

Back to Top