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

S0C4 Reason code 4


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
arvind.m

Active User


Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad

PostPosted: Thu Mar 19, 2009 5:53 pm
Reply with quote

even i'm getting S0C4 abend but not able to figure it out the correct reason. can some body help me.

Code:

Traceback:                                                                     
  DSA Addr  Program Unit  PU Addr   PU Offset  Entry         E Addr    E  Offset
  001AD3F0  CEEHDSP       0BF52200  +000040A2  CEEHDSP       0BF52200  +000040A2
  001AD030  LCEM0073      00085EE0  +00001C1E  LCEM0073      00085EE0  +00001C1E
                                                                               
Condition Information for Active Routines                                       
  Condition Information for LCEM0073 (DSA address 001AD030)                     
    CIB Address: 001ADD10                                                       
    Current Condition:                                                         
      CEE0198S The termination of a thread was signaled due to an unhandled condition
    Original Condition:                                                         
      CEE3204S The system detected a protection exception (System Completion Code=0c4)

Location:                                                                       
  Program Unit: LCEM0073 Entry: LCEM0073 Statement:  Offset: +00001C1E         
Machine State:                                                                 
  ILC..... 0004    Interruption Code..... 0004                                 
  PSW..... 078D2000 80087B02                                                   
  GPR0..... 00000000  GPR1..... 00185600  GPR2..... 00090600  GPR3..... 00189600
  GPR4..... 0008E580  GPR5..... 0008E600  GPR6..... 00000001  GPR7..... 0018C91B
  GPR8..... 000F9BEE  GPR9..... 0008DB78  GPR10.... 00086014  GPR11.... 00087416
  GPR12.... 00085FDC  GPR13.... 001AD030  GPR14.... 00000000  GPR15.... 000FEA48
orage dump near condition, beginning at location: 00087AEE                     
+000000 00087AEE  58F05070 5CE0A0A0 187F5A70 A09C1A72  50607491 58705070 5C60A0A
                                                                               
meters, Registers, and Variables for Active Routines:                           
EHDSP (DSA address 001AD3F0):                                                   
UPSTACK DSA                                                                     




Code:

READY                                         
   DSN SYSTEM(DPA0)                           
DSN                                           
  RUN PROGRAM(LCEM0073) PLAN(PCRPEMPI)         
DSN      ENDED DUE TO ERROR+                   
SYSTEM ABEND CODE 0C4   REASON CODE 00000004   


Code:

CEE3204S The system detected a protection exception (System Completion Code=0C4)
         From compile unit LCEM0073 at entry point LCEM0073 at compile unit offset +00001C1E at entry offset +00001C1E
      at address 00087AFE.                                                 

Back to top
View user's profile Send private message
arvind.m

Active User


Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad

PostPosted: Thu Mar 19, 2009 5:56 pm
Reply with quote

this is a complete COBOL DB2 program and no input files. there is only one output file which is a GDG file.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Mar 19, 2009 6:07 pm
Reply with quote

Click HERE to find out about S0C4 .

Quote:

0C4
One of the following exceptions occurred:

4
Protection exception. The key of the storage area that the running program tries to access is different from that of the running program. The key of the running program can be obtained from the PSW key field. The key of the storage can be obtained using the IPCS LIST subcommand if the DISPLAY(MACHINE) option is in effect. The DISPLAY(MACHINE) option is not the IPCS-supplied default and must be enabled by explicitly asking for the data or as a consequence of having used SETDEF to make the DISPLAY(MACHINE) option the default. The programmer should determine whether the program is running with the correct key or whether the storage address is set up correctly.

The protection exception might have occurred when the program referenced a page that is protected with the PGSER PROTECT service, or is defined as shared by the IARVSERV service with a view of read-only.
Back to top
View user's profile Send private message
arvind.m

Active User


Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad

PostPosted: Thu Mar 19, 2009 6:40 pm
Reply with quote

who are the right people to contact like ops or storage people or dba etc for these type of issues. The above is very high level to understand.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Mar 19, 2009 6:55 pm
Reply with quote

Who wrote the program ?
Back to top
View user's profile Send private message
arvind.m

Active User


Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad

PostPosted: Thu Mar 19, 2009 6:58 pm
Reply with quote

I think he left the company. all of sudden this job fail 12 times yesterday.
Back to top
View user's profile Send private message
anandinmainframe

Active User


Joined: 31 May 2007
Posts: 171
Location: India

PostPosted: Thu Mar 19, 2009 9:23 pm
Reply with quote

arvind.m,
Have you tried changing the Dataclas for eg if it was 01 to 10,50.. etc
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 Mar 19, 2009 9:31 pm
Reply with quote

There's no indication that DATACLASS is involved.

Arvind: find the compile output for program LCEM0073. If you can't find one, compile it with the LIST option. In this LIST or OFFSET output, find the offset +00001C1E and determine which verb of your COBOL program this is referencing. That verb is the one involved with your ABEND. Figure out why the storage violation is occurring based on what the COBOL code is doing there (for example, if it is a table reference perhaps the table subscript went out of range). This is pretty much basic (very basic) z/OS debugging so if you think it's "high-level" you need to upgrade your skill set.
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 Mar 19, 2009 11:52 pm
Reply with quote

Hello,

When was the program last compiled? Who compiled it? Do you know if this version ever ran successfully?
Back to top
View user's profile Send private message
arvind.m

Active User


Joined: 28 Aug 2008
Posts: 205
Location: Hyderabad

PostPosted: Fri Mar 20, 2009 2:03 pm
Reply with quote

Hi All,
the issue is now resolved. i increased the table size and re-started the job. i think the problem was with index or subscript with invalid value and the program was using the address space beyond that was assigned it to.

I again re-compiled the program and check the offset address. Thanks you all for your help.
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 Mar 20, 2009 7:42 pm
Reply with quote

Thank you for letting us know it is working icon_smile.gif

d
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 run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Reorg abended with REASON=X'00E40347' DB2 2
No new posts REASON 00D70014 in load utility DB2 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top