4038 abend when calling a program in subprogram.

Naraismha Reddy · New User Joined: 23 Apr 2008 Posts: 39 Location: Hyderabad

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

Robert Sample · Posted: Thu Jan 07, 2010 6:08 pm

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.

sid_aec · New User Joined: 01 Jul 2008 Posts: 60 Location: Kolkata

Is this the program 'REMOP739' you are calling ,check if the program load present in CICS load libs etc.. regarding environment.

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

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.

Naraismha Reddy · New User Joined: 23 Apr 2008 Posts: 39 Location: Hyderabad

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

dick scherrer · Posted: Fri Jan 08, 2010 11:42 pm

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. . .

Naraismha Reddy · New User Joined: 23 Apr 2008 Posts: 39 Location: Hyderabad

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

Robert Sample · Posted: Sat Jan 09, 2010 8:34 am

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.