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

U4038 abend while calling ADABAS


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

New User


Joined: 16 Apr 2009
Posts: 10
Location: India

PostPosted: Fri Apr 24, 2009 10:06 am
Reply with quote

I coded a new COBOL batch program which calls an existing COBOL routine which in turn is calling ADABAS. Irrespective of the nature of call, whenver the first call to ADABAS is encountered, run time abend U4038 is occurring.

IGZ0033S
An attempt was made to pass a parameter address above 16 megabytes to AMODE(24) program ADABAS. From compile unit GPS0002 at entry point GPS0002 at compile unit +000004A2 at entry offset +000004A2 at address 1CF004C2.


The program had compiled fine previously (using Changeman). I tried recompiling the calling program with the same AMODE(24) (default is AMODE(31) in our shop) but still the same problem is coming.

Help sought!
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Fri Apr 24, 2009 3:08 pm
Reply with quote

Is your COBOL compile option DATA(24) or DATA(31)?
Back to top
View user's profile Send private message
RockyS

New User


Joined: 16 Apr 2009
Posts: 10
Location: India

PostPosted: Fri Apr 24, 2009 3:42 pm
Reply with quote

Issue is resolved. I link-edited all the called routines with AMODE(24).
Thanks!
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 Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts Call an hlasm from REXX in batch and ... CLIST & REXX 4
No new posts What is the most complex abend you've... Mainframe Interview Questions 8
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts ISAM and abend S03B JCL & VSAM 10
Search our Forums:

Back to Top