ASRA ABEND - 4088

vinit_infy · New User Joined: 07 Apr 2005 Posts: 56

Hi,

I am getting ASRA abend - 4088 while running one of my transaction on cics.

Can anybody assist me how to resolve this?

Thanks in advance,

Vinit

CICS Guy · Posted: Mon Dec 17, 2007 3:55 pm

Not enough information, try again.....

TG Murphy · Posted: Mon Dec 17, 2007 8:55 pm

QuickRef says this about U4088:

Programmer Response: For reason codes 91-20x, probable internal malfunction or storage corruption. For code 1001 or 1004, increase the region size or check for infinite recursion. For reason code 1024,
increase the region size or request a Reserve stack. Use the STORAGE run-time option to get more information about the environment leading up to the out-of-storage condition or allow a user handler to get control and respond to the condition.

As well, I have an entry in my notebook on 4088. I wrote down "Short On Storage". So consider that as well. Search for SHORT in your CICS logs.

vinit_infy · New User Joined: 07 Apr 2005 Posts: 56

The Problem is when i tried to debug using Xpeditor, i found when one of my called module reached to it's goback,
and then as i pressed F9 to come to calling module, the my transaction got abended with ASRA abend - 4088.
I got the following info regarding this abend from the cics log -
A storage violation (code X'0F0C') has been detected by module DFHSMAR
DFHME0116 CICSTD03 780
(Module:DFHMEME) CICS symptom string for message DFHSM0102 is
PIDS/5655M1500 LVLS/640 MS/DFHSM0102 RIDS/DFHSMAR PTFS/HCI6400
PRCS/00000F0C

But i dont have any idea how to resolve this. If any one can help me out , i will be very greatful.

Thanks in Advance,
-Vinit

Earl · Posted: Tue Dec 18, 2007 9:06 pm

If this is a cobol progam, make sure you are not referencing data
outside the array (occurs) of a working storage table.

TG Murphy · Posted: Wed Dec 19, 2007 12:25 am

The problem only happens when you are debugging, right?

Does not happen when running directly under CICS, right?

Could be a bug in your debugger.

You mention that your program was called. Can you double check this? Maybe your caller is using LINK. By the way, we always use GOBACK regardless of whether we are CALLed or LINKed. A few years ago our debugger had a problem with GOBACK when LINK was used...

Even if your caller is using LINK it should be fine for you to use GOBACK. However, if it is a bug in your debugger, then important to know whether the caller is uses CALL or LINK.

If the caller is using LINK, do a CICS RETURN instead of GOBACK. Do this as an experiment. If RETURN works and GOBACK doesn't your debugger becomes a bigger suspect. And perhaps the use of RETURN will provide you with a workaround until you can get GOBACK to work..

Here is another angle. Let's assume that your program is trashing storage and is corrupting some pointers that LE uses. Try the following.

Modify your program so that it does nothing. It enters and then immediately does a GOBACK. Does it abend? If not... now start adding your logic back into the program - bit by bit - until you make it abend.

vinit_infy · New User Joined: 07 Apr 2005 Posts: 56

Hi Murphy,

Thanks for your time.

Actually i am getting the abend even if i run my tranx directly without any debugger. The abend message is saying that ' transaction has failed with abend code 4088.

After that i tried to run this transaction through debugger and then i found that the abend occured at goback of one of the called program when it tries to return to calling module.

One more thing, My calling and called program has no cics commands , they are normal COBOL, DB2 programs so have simple call between them.

I think the above info can give you some more clear picture. If you can advise anything , that would be much appriciated,

Many Thanks,
Vinit

dick scherrer · Posted: Wed Dec 19, 2007 8:31 pm

Hello,

Earl · Posted: Wed Dec 19, 2007 9:07 pm

since you indicated you are getting message
DFHME0116 << produced by CICS

it looks like you are trying to run a batch cobol program in CICS

please explain your situation a little better.

dick scherrer · Posted: Wed Dec 19, 2007 10:03 pm

vinit_infy · New User Joined: 07 Apr 2005 Posts: 56

This program is like a common program for our batch and online region.
That means, our batch cycle is also using this program and our online region is also using this program. It is not necessary that every program should have cics commands. ..right?

The call is like

--

CICS Driver module >>>calls>>>COBOL MODULE 1>>>Calls>>>COBOL DB2 Module.

So, if you can CATCH any valid reason that would be appriciated.

dick scherrer · Posted: Thu Dec 20, 2007 12:32 am

Hello,

Unless something has changed in the way called modules are handled, the same link-edited module will not run in both batch and cics (unless extra code was put in to detect the environment the code is running in).

As i mentioned, what i just posted may not be current - it was a while back the last time i heard this mentioned (not in these forums).

Earl · Posted: Thu Dec 20, 2007 1:53 am

Nagarjuna Laghumavarapu · New User Joined: 19 Dec 2007 Posts: 2 Location: hyderabad

hi vinit,

i think u r prog may consist of data exception error.......i.e(if u r performing arithmatic operations ur storing the either decimal values in integer variable or some thing like dat).......