Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

U4038 abend while calling ADABAS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
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    Post subject: U4038 abend while calling ADABAS
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: 7931
Location: Bellevue, IA

PostPosted: Fri Apr 24, 2009 3:08 pm    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
This topic is locked: you cannot edit posts or make replies. Natural ADABAS Opening with CTS enikhilk Mainframe Jobs 0 Wed Nov 30, 2016 5:37 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us