IBM Mainframe Forum

Hi,

This is a PL/1 program , the problem it is that it is abending with the error:ABENDU4038
and CEEDUMP is giving the following message :

GET_ACH +00000FFA 5690
T3400 +00005644 1342
IBMPMINV +000004DE .

In the program there are 2 calls of function get_ach , its failing in 2 of the cases of the call in get_ach , but if we give "put skip data(temp_scores)" before the call get_ach the program is not abending and it is running fine .Please can you look into the issue , this is something regarding memory register buffer problem , i think.

The program BT34001D is attached herewith without the put skip before get_ach.

The program BT34001D_updated is attached with put skip before get_ach.

Attachments removed

You don' t really expect anybody of us to go thru a 10000 lines program,
do You ???

remember replying is on
voluntary base
our own time
our own equipment
free of charge

a forum is just for quickies based on past experiences and reminiscences
I guess that You expect too much!

follow on ( for the moderators )
it would be better to delete the attachments, they seem to contain proprietary info!

follow on ( for the TS )

if, and I insist on the if, really the abend disappears just by sprinkling put' s around
it would be time to open an issue with IBM software support

Hello and welcome to the forum,

As Enrico mentions, it is not reasonable to ask people to root thru 10000 lines of code - what you need to do is add some diagnostic code and determine where the problem is.

Many of our members are not permitted to download attachments. If you have something you want to post (code, jcl, data, etc) use copy/paste from the screen and then "Code" the entry to improve readability and preserve alignment. There is a Preview so you can see your post as it will appear to the forum rather than how it appears in the Reply Editor.