Re: Calling a stored procedure.

[afvaiv <afvaiv@xxxxxxxxxx>]

Rob,
let me try to help you as for your initial question (below).

I see from your code, you try to call a stored procedure from withing an RPG 
program.
No problem for that. BUT... , sometime ago I had posted a similar question, the 
main point was
HOW TO RECEIVE a RESULT SET... being returned from the stored procedure I was 
calling.

Someone answered (don't remember who...) that CAN ' T BE DONE unless you use 
CLI programming...

Since nobody else answered, I assumed that was true, so...

At that time I did not had the faintest idea what that was like, but looked 
into Redbook "Who
Knew You Could Do That with RPG IV? A Sorcerer’s Guide to System Access and 
More SG24-5402-00"
. It includes a Library "RPGISCOOL" with quite a number of examples of many 
different topics.
One of them is CLI programming.

It was not easy for me to start with, but based in the code provided with quite 
a number of
modifications,  sometime later I managed to get a set of some programs up and 
running to use as
"skeletons" for future real programs. A pair of these programs (the ones I 
created) do more of
less what I mentioned , i.e. RPG program A ( "CLI" ...) calls a procedure 
(normal SQL RPG
program B) that will return a result set, so the original program A can read 
it...

I presume there should be no difference whether the result set comes from a SQL 
search (in my
case) of from a ARRAY FOR xxx ROWS (in your case).

Hope this helps. Feel free to contact me off line if you need additional info.

rob@dekko.com wrote:

> ****************************
> *****  INITIAL LETTER  *****
> ****************************
>
> I have an SQLRPGLE program named BOM240FILE with the following:
> ...
> D BOM240FILE      PR
> D  UserLibrary                  10A
> D  ParentItem                   15A
> D  Facility                      2A
>
>  /COPY ROUTINES/QRPGLESRC,SRVPGMCPY
>
> D BOM240FILE      PI
> D  UsrLib                       10A
> D  Parent                       15A
> D  KFaci                         2A
> ...
> C/EXEC SQL
> C+ SET RESULT SETS ARRAY :Parm1 FOR :Row1 ROWS
> C/END-EXEC
> ...
>
> I plan on calling it from another program with:
> C/EXEC SQL
> C+ CONNECT TO :DATABASE
> C/END-EXEC
>
> C/EXEC SQL
> C+ CALL GDIDIVO/BOM240FILE (:UsrLib, :Parent, :KFaci)
> C/END-EXEC
>
> How do I get back the :Parm1?
>
> ***********************************
> *****  END OF INITIAL LETTER  *****
> ***********************************

----------------------
Antonio Fernandez-Vicenti
afvaiv@wanadoo.es


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---