MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

CICS commarea problem

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
knallathambi
Beginner


Joined: 05 Jan 2005
Posts: 2
Topics: 1

PostPosted: Thu Sep 06, 2007 9:26 am    Post subject: CICS commarea problem Reply with quote

Hi all,

I encountered Abend U4088 Reason code=7A in CICS for the below secanrio,

Program A links to Program B:

Program A:
--------------
WORKING-STORAGE.
01 WS-PASS-DATA PIC X(100).

PROCEDURE DIVISION.
............
EXEC CICS LINK PROGRAM('B') COMMAREA(WS-PASS-DATA)
LENGTH(LENGTH OF WS-PASS-DATA) END-EXEC

Program B:
---------------
LINKAGE SECTION.
01 DFHCOMMAREA.
05 WS-GET-DATA PIC X(100).
05 WS-REQUEST-TYPE REDEFINES WS-GET-DATA PIC 9(04).


Program B fails with abend Abend 4088 and also triggers a stroage violation.

I was advised that REDEFINES clause should not be used in the COMMAREA and it is the cause for the abend.

Is this theory correct ? If yes why is it ?
Please advise.
Back to top
View user's profile Send private message
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3

PostPosted: Thu Sep 06, 2007 9:35 am    Post subject: Re: CICS commarea problem Reply with quote

knallathambi wrote:
LINKAGE SECTION.
01 DFHCOMMAREA.
05 WS-GET-DATA PIC X(100).
05 WS-REQUEST-TYPE REDEFINES WS-GET-DATA PIC 9(04).
Nothing wrong with that.....
Quote:
Program B fails with abend Abend 4088 and also triggers a stroage violation.
Have to lookup the 4088, but reference to the commarea should not be the storage violation....
Quote:
I was advised that REDEFINES clause should not be used in the COMMAREA and it is the cause for the abend.
Balderdash!
Quote:
Is this theory correct ? If yes why is it ?
Please advise.
No, it is not correct.....
Back to top
View user's profile Send private message
knallathambi
Beginner


Joined: 05 Jan 2005
Posts: 2
Topics: 1

PostPosted: Thu Sep 06, 2007 10:35 am    Post subject: Reply with quote

Thank you for the quick response.

The explanation for the abend 4088 says that, Stack pointer corrupted and Stack overflow.

What are the possible programming errors that cause the abend 4088 ?

And how to debug this abend ?

Thanks in advance.
Back to top
View user's profile Send private message
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3

PostPosted: Thu Sep 06, 2007 10:43 am    Post subject: Reply with quote

knallathambi wrote:
The explanation for the abend 4088 says that, Stack pointer corrupted and Stack overflow.
Sounds like a storage violation.....
Quote:
What are the possible programming errors that cause the abend 4088 ?
subscript/index range checking might help....
Quote:
And how to debug this abend ?
Ah, now that's the hard part....The first place I'd start is to get a dump of the corrupted storage, look for fingerprints of what kind of data landed there - That might help to point back to the offender....
Also look at the storage adjacent to the corrupted storage and investigate the program logic that accesses and stores in those surrounding areas...
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12382
Topics: 75
Location: San Jose

PostPosted: Thu Sep 06, 2007 10:56 am    Post subject: Reply with quote

knallathambi,

Check this Link which explains the error

http://www-1.ibm.com/support/docview.wss?uid=isg1PQ83997

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
blitz2
Beginner


Joined: 23 Jan 2007
Posts: 84
Topics: 14

PostPosted: Fri Sep 07, 2007 1:51 am    Post subject: Reply with quote

knallathambi,

Are there any Getmains that you used? .. It is quite possible that the length of getmain that you did was not sufficient.
________
How to roll blunts
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group