MVSFORUMS.com

[js_praveen]

Hi,

I have a rexx program that calls a Cobol program which inturn calls another Cobol subroutine. The first call, rexx to Cobol is successful but the call from Cobol program to the Cobol subroutine is failing with s806. I have defined the load libraries using ISPEXEC, but it is not able to find the load module. I'm listing the library def below.

[coolman]

Couple of questions:
Where are all your COBOL programs, is it in your PDS or some version management tool like Panvalet/Changeman. Ensure that your PGMLIB contains the load modules of all the cobol program, be it called/calling. In case of changeman, ensure that all of your packages are "promoted" and ensure that you are pointing to the correct load library

Hope this helps...

Cheers,
Coolman
________
vaporizer wholesaler

[js_praveen]

Yes all the load modules are there in the loadlibs. The calling program and the called program (both cobol) are existing in different loadlibs.

Thanks
JSP

[Mervyn]

It's possible you will need to allocate your load libraries in native TSO (i.e. before entering the ISPF environment).

Before considering that, see if changing the CALL works:

"ISPEXEC SELECT CMD(CALL 'MYPGM.LOADLIB(DBVALID)')"
_________________
The day you stop learning the dinosaur becomes extinct

[js_praveen]

Mervyn,

It worked like a charm, you are just great!!!! I was searching one manual after another till now to get a solution. I tried the same thing using CLIST and it is working fine, so was thinking of using CLIST rather than REXX (both are new to me).

So my previous CALL was executed from TSO and the load libs were defined in ISPF env, is that the reason why it didn't pick the load module?

Thank you so much,

JSP

[Mervyn]

Yes, I believe that's the reason.

I can't claim all the credit; I'm just passing on something that helped me once before.
_________________
The day you stop learning the dinosaur becomes extinct