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
 
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 SAS Work space - B37 abend santuece1 JCL & VSAM 11 Tue Jun 19, 2018 1:03 am
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
No new posts using CALL PLIRETC(somevalu) Pedro PL/I & Assembler 1 Wed May 09, 2018 10:25 pm
No new posts How to force a select query to abend neo4u DB2 7 Mon Apr 23, 2018 1:36 pm
No new posts Call COBOL or PLI with a click from w... vaibhav gs All Other Mainframe Topics 1 Mon Apr 16, 2018 7:29 pm

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