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
 

 

4038 abend when calling a program in subprogram.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Thu Jan 07, 2010 5:59 pm    Post subject: 4038 abend when calling a program in subprogram.
Reply with quote

Hi.

I have a CICS-DB2 program calling a subprogram. In this program i am calling the subprogram using EXEC CICS LINK ('PROGRAM') .

In the subprogram i am calling another COBOL-DB2 program using a CALL statement.

I am using Intertest to debug the program.

I am getting the following.

CAIN3501 TASK=00854 ABENDED BY CA-INTERTEST, ABEND CODE=4038, ERROR CODE=25
CAIN3502 PGM=REMOP739 OFFSET=00001F76 TRANS=RE09, TERM=AVLO.

Any suggestions to solve this problem is greatly appreciated.

Thanks,
Narasimha
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Thu Jan 07, 2010 6:08 pm    Post subject:
Reply with quote

A 4038 is typically a Language Environment error. Unfortunately, all a 4038 says is that the application failed (severity level 2 or higher) with some code -- you must research the application to find any error messages produced and use them for debugging.
Back to top
View user's profile Send private message
sid_aec

New User


Joined: 01 Jul 2008
Posts: 60
Location: Kolkata

PostPosted: Thu Jan 07, 2010 8:23 pm    Post subject:
Reply with quote

Is this the program 'REMOP739' you are calling ,check if the program load present in CICS load libs etc.. regarding environment.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Fri Jan 08, 2010 3:07 am    Post subject:
Reply with quote

It has been my experience that 4038 abends are normally caused
by code referencing storage areas that do not belong to them,

such as a table element within a COBOL program that is outside
the range of the table.

Check your source code to determine if logic is causing reference
to storage areas not available to the program.
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Fri Jan 08, 2010 9:53 am    Post subject: Reply to: 4038 abend when calling a program in subprogram.
Reply with quote

The program 'REMOP739' is calling another program 'RETEST' .

I have tested the program 'RETEST' through a batch job. I am getting the result required but when i am calling the program 'RETEST' through 'REMOP739' I am getting 4038 error.

The program 'REMOP739' willbe connected to DSN SYSTEM(DT3G) but the subprogram 'RETEST' will be connected to DSN SYSTEM(DT4G). Is the 4038 error causing due to the environment.

Thanks,
Narasimha
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 08, 2010 11:42 pm    Post subject:
Reply with quote

Hello,

Unless something has changed, a cics module won't generally execute in batch. How did you run the batch test for RETSEST?

Possibly i am mis-remembering. . .
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Sat Jan 09, 2010 8:06 am    Post subject: Reply to: 4038 abend when calling a program in subprogram.
Reply with quote

Program 'RETEST' is just a Cobol-DB2 program.

I don't know if such a call can be made in CICS.
Can you please explain if I am missing anything.

Thanks,
Narasimha
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jan 09, 2010 8:34 am    Post subject:
Reply with quote

I must be missing something. Have you done the usual, standard debugging stuff like using your debug tool, tracing through the program to see where it stops running, looking at the system output messages for anything related to your problem, contacting your site support group for assistance in going through CICS dumps, and things like that?

CICS, DB2, and COBOL have been used together for a long time. While it's possible you've uncovered a brand-new, never-before-seen system problem with the combination of things you're doing, I wouldn't bet on it -- the way to bet is that you've got something wrong in your code, your compilation process, or your execution process. Your best move would be to start with your site support group to find out what CICS and LE are telling you the problem is.
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6: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 IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Calling procedure with multiple entri... steve-myers PL/I & Assembler 5 Fri Jan 27, 2017 3:33 pm


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