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
 

 

Call fails with 4038 abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
JeffM

New User


Joined: 18 Sep 2006
Posts: 2

PostPosted: Mon Sep 18, 2006 1:26 pm    Post subject: Call fails with 4038 abend
Reply with quote

I have a program CALL that fails with a 4038 abend and I can't see why. The call is dynamic, using a variable that contains the program name. The called program clean compiles. I tried changing both to use EXEC CICS LINK instead and this worked OK, so the program is obviously acceptable to CICS in that format. I just can't see why it should fail when called. Yes, it does use GOBACK.

I'm certain that it's the call itself and not the called program, because an inserted TRACEID statement (first line) is never executed.

Any ideas?
Back to top
View user's profile Send private message

JeffM

New User


Joined: 18 Sep 2006
Posts: 2

PostPosted: Tue Sep 19, 2006 6:27 am    Post subject: Re: Call fails with 4038 abend
Reply with quote

After some more digging, I found that an IGZ module failed to load. It seems that this module is AMODE=31 and my called program was AMODE=24. I recompiled using AMODE=31 and the call then worked. It seems LE doesn't like the mix, so even though CICS could load the program, LE couldn't.
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 Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Need help in triggering a PL1 module ... Varungv99 IMS DB/DC 0 Fri Apr 07, 2017 10:01 am
No new posts Read of TDQ fails in LENGERR Tracy Hansen CICS 10 Wed Apr 05, 2017 12:10 am
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm


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