Re: SQL wrapper around service program

Am 18.11.2022 um 16:23 schrieb Martijn van Breden <m.vanbreden@xxxxxxxxxxxxxxxxxxxxxxxxxx>:

Hi All

I've been reading on this list for quite a while and it has brought me a lot of knowledge for which I would like to thank you all!

Having said that I ran up to a problem for which I really don't see what to research next and where the cause of the problem even lies.

I have a service program written in SQLRPGLE with at this moment 2 subprocedures. I'd like to call one of them via a stored procedure wrapper so I can use that in my SQL. I did that before with another RPGLE service program and it worked fine at the first attempt. The service program is in PWSLIB, as is the stored procedure.

The stored procedure:
create or replace procedure DVLTMF_SetHash
-- Stelt de hashcode in DVLTMF in.

(in WSLIB_pmx char(10))
program type sub
language rpgle
not deterministic
specific DVLTMS04
not fenced
no sql
external name PWSS_HSH(PWSHSH_SET_MSHSH)

parameter style general
;

The service program exists, the subprocedure is there. I can call the subprocedure from RPG. I can *also* call the stored procedure from STRSQL in a 5250 session which really strikes me.

call dvltmf_sethash('DRGPWS81');

With the same library list in ACS I get this error

SQL-status: 42724 Leverancierscode: -444 Bericht: [SQL0444] External program *N in *N not found. Oorzaak . . . . : An attempt was made to CALL procedure or invoke function DVLTMF_SETHASH in PWSLIB. External program or service program *N in schema *N was not found. Recovery . . . : The external program or service program associated with the procedure or function cannot be found. Ensure that an object exists with the name specified on the DECLARE PROCEDURE, CREATE PROCEDURE, CREATE FUNCTION, ALTER PROCEDURE, or ALTER FUNCTION statement. If no name was specified, ensure that an object with a name which matches the procedure or function name specified exists. If a program name was specified, a program object must exist. If an entry point name was specified, then a service program object must exist. Try the request again.

I can call the stored procedure unqualified because PWSLIB is in the *libl and I use *SYS naming both in 5250 and ACS.

So I presume that there is something wrong in ACS, but just can't point my finger to what that would be.

Does anyone have a suggestion?

Kind regards,

Martijn van Breden
lead software architect
--

[cid:image001.png@01D8FB65.B0151530]

Pantheon Automatisering B.V.
Heerenveen

Postadres
Abe Lenstra Boulevard 30
8448 JB Heerenveen
T. 0513 657 357
M. 06 2075 2931

info@xxxxxxxxxxxxxxxxxxxxxxxxxx<mailto:info@xxxxxxxxxxxxxxxxxxxxxxxxxx>
www.pantheon-automatisering.nl<https://www.pantheon-automatisering.nl/>
KvK 01055135

E-mail disclaimer<https://www.pantheon-automatisering.nl/disclaimer/>