IMS abend code U0476 in COBOL subroutine - Please help!!

vaibhavkolhe · New User Joined: 24 Feb 2005 Posts: 11

Ok. Here's my case:

I have an existing non-IMS program which needs to be converted to an IMS program. The non-IMS program is a plain COBOL module and it calls another COBOL subroutine which retrieves data from an IMS database. The call is pretty simple DLI call. Let's say the calling program is called P1 and called program(IMS subroutine) is P2. I have coded the PCB name in the linkage section of the called module(P2) and also there is an entry DLITCBL using <pcb-name>. The call to P2 is a static call and both the P1 & P2 loads are in the same load library.

The JCL used for testing has the following parms in EXEC step

EXEC PGM=DFSRRC00,COND=(16,EQ),
PARM='DLI,P1,<psb-name>

Since P1 is non-IMS it has been compiled and linkedited using Changeman with no IMS batch precompile. However P2 has been compiled & linkedited using IMS batch precompile option. When I run this job, it fails with a U0476 abend and it fails in P2 where there is a CBLTDLI call. I don't know what is going wrong? I compiled linkedited P1 in IMS option buit it faiuled with a S0C4, so I am sure that's not the way to go. Can anyone tell me the possible causes

- Do P1 & P2 have to be linkedited using a single Linkedit card?
- Do I need to change some parameter on the EXEC step?
- Do I need to code something additional in the LINKAGE SECTION of the called program?

Please reply urgently since I need to provide the test results by Friday.

Thanks

VK

dick scherrer · Posted: Wed Oct 22, 2008 9:22 pm

Hello,

vaibhavkolhe · New User Joined: 24 Feb 2005 Posts: 11

Thanks. I have consulted a few developers but they have not worked on IMS/Cobol subroutines so they are not very sure. I am trying a few things and hope to fix it, but if anyone can provide a response it'd be a great help.

Thanks VK

dick scherrer · Posted: Thu Oct 23, 2008 9:36 am

Hello,

Something you might try is to include IMS in p1. . .

Not very elegant, but might get you over the hurdle until a proper way is posted.

Sandy Zimmer · Posted: Thu Oct 23, 2008 5:11 pm

You said that it statically linked - not dynamically. You have answered your own question " Do P1 & P2 have to be linkedited using a single Linkedit card?"

Your JCL exec statement is indicating that P1 is IMS and that it has a PSB. Is it and does it?