Re: Creating a stored procedure to call a CL program which calls a RPG program.

Take a look at the 'WITH RETURN ...' clause. 'TO CLIENT' is what you want,
not 'TO CALLER'.

The clause is used on the 'SET RESULT SETS' statement, if you're returning
an RPG array, or the 'DECLARE CURSOR' statement if using SQL.

Charles



On Tue, Aug 1, 2017 at 8:44 AM, Arco Simonse <arco400@xxxxxxxxx> wrote:

You are calling a CL program but your stored procedure is defined with
LANGUAGE RPGLE.

Regards,
-Arco

Op dinsdag 1 augustus 2017 heeft a4g atl <a4ginatl2@xxxxxxxxx> het
volgende
geschreven:

I am trying to create a stored procedure that calls a CL program which in
turn calls a RPG program to return a result set.

I am not able to get it to work.What do I need to change?

drop procedure qgpl.IAR400;

Create procedure qgpl.IAR400
(IN USER_ID CHAR(10),
IN PU_Type CHAR(01),
OUT Error_Code CHAR(02),
OUT PERRMSG CHAR(100) )

EXTERNAL NAME DEVDF.IAR400
LANGUAGE RPGLE
SPECIFIC IAC400
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
PARAMETER STYLE GENERAL WITH NULLS
DYNAMIC RESULT SETS 1
;
The stored procedure should call IAC400 which will call IAR400.

TIA

Darryl Freinkel
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx <javascript:;>
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx <javascript:;>
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx <javascript:;> for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD