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

PROGRAM-CHECK (0C4/AKEA) and 4094.

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

Active User

Joined: 28 Sep 2005
Posts: 210
Location: St Katherine's Dock London

PostPosted: Fri Dec 14, 2012 12:43 pm
Reply with quote

Hi All - we are facing a tricky situation here. Our host application is failing at times with


Command ===>                                                  Scroll ===> CSR 
Abbrev Short Full - TRANID: ZESR      CICS ABEND: ASRA              LQ05      2
10695 QR    AP 1942 APLI  *EXC* Program-Check         START_PROGRAM,XZQVDPLR,C
10695 QR    AP 0790 SRP   *EXC* PROGRAM_CHECK                                 

and at times with a storage violation abend [4094 - reason 0018]


 Called-from-address 00062CC2 : Module CEECCICS + X'2D32'                     
41605 QR    SM 0D01 SMMF  ENTRY FREEMAIN              2E850DA8,EXEC,USER     
41605 QR    SM 0D02 SMMF  EXIT  FREEMAIN/OK           USER storage at 2E850DA8
41605 QR    AP 00E1 EIP   EXIT  FREEMAIN              OK                     
41605 QR    AP 00E1 EIP   ENTRY ABEND                                         
 Called-from-address 000627F6 : Module CEECCICS + X'2866'                     
41605 QR    AP 0741 ABAB  ENTRY CREATE_ABEND_RECORD   0018C58C , 00000040,PZMV
41605 QR    SM 0301 SMGF  ENTRY GETMAIN               264,NO,00,TACB,CICS     

I have the fault analyzer dump and IPCS dump with me to look at, but i am doing literally only that. Haven't been able to locate any helpful thing which can help in deciphering how to read through the dump information.

Can someone please point me to the right direction where i can find how to make use of FAZ dump and IPCS dump information?
Back to top
View user's profile Send private message

Superior Member

Joined: 14 Mar 2007
Posts: 10801
Location: italy

PostPosted: Fri Dec 14, 2012 1:17 pm
Reply with quote

storage violations are pretty tricky to debug, the task abending could be the innocent victim of somebody else bug

to see if the task abended is the culprit
review the <active> program chain for array overflow ( unchecked indexes )

in the dump look at the <violated> storage area and see if You can find evidence of data related to some other transaction and start reading the other transaction program

a pretty high percentage of errors can usually be found by just rereading the involved programs ( walk thru )
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator

Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Fri Dec 14, 2012 9:49 pm
Reply with quote

The trace indicates a good FREEMAIN. Afterwards, is the program attempting to address any of the previously freed area? Is the FREEMAIN being issued by the program? If not, then CICS is issuing it at task or enclave termination.

A SOC4 is a Protection exception, where the program is attempting to address storage that is no longer or never has been "legally" addressable. It's similar to a Storage Violation but not as severe and should only affect the resulting program and not trample on storage associated with another program/programs in the mix.

It would make sense that this happens from time-to-time as it's a timing issue, where sometimes the storage can be addressed without error and sometimes not.
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 VB file copy COBOL program gives erro... COBOL Programming 3
No new posts Cobol program to determine the sequen... COBOL Programming 2
No new posts check if two PD values are equal, no ... DFSORT/ICETOOL 4
This topic is locked: you cannot edit posts or make replies. Check if it is certain hour, then pro... JCL & VSAM 25
No new posts Numeric check on packed signed and un... COBOL Programming 4
Search our Forums:

Back to Top