Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 8165
Location: East Dubuque, Illinois, USA

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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
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

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us