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: 7989
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
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts Release of Adabas Cursor mohitsethi All Other Mainframe Topics 1 Mon Feb 06, 2017 8:36 pm
No new posts Calling procedure with multiple entri... steve-myers PL/I & Assembler 5 Fri Jan 27, 2017 3:33 pm
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


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