Re: SQL Stored Procedure with Result Set

When a Stored Procedure is exited, all open cursors will be returned as
result sets.

You have the create procedure correct.

Result Sets 1

However change the DECLARE to...

DECLARE rsCursor CURSOR WITH RETURN FOR SELECT rtnTracking FROM
sysibm/sysdummy1 ;

The "WITH RETURN" is key.

Then just simply

OPEN rsCURSOR

Something I've had issue with when trying to sql procedures repeatedly from
RPG is that they cursor will remain open. So I've added additional code
that makes sure that the cursor is closed first.

Here is an example of what I do.


BEGIN
DECLARE CURSOR_NOT_OPENED CONDITION FOR SQLSTATE '24501' ;
DECLARE CURSOROPEN CHAR ( 1 ) ;
DECLARE C1 CURSOR WITH RETURN FOR
SELECT IAITEM , IADSC1 , IADATE , IATRAN , IASREF , IATYPE , IAQTY
FROM INVACTF
ORDER BY IAITEM , IADATE , IATYPE , IATRAN;

Open C1;
END



FWIW, It's seems to me that you are returning a single value. So why not a
function (SQL UDF) instead?





On Tue, Mar 26, 2013 at 8:24 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>wrote:

Buck, I think Kurt is doing an SQL procedure - not an external RPG
procedure. We don't use host variables in those things, and I haven't
checked about using SET RESULT SETS ARRAY in the context of an SQL
procedure.

Ever learning, I hope!

Vern

On 3/26/2013 5:25 PM, Buck Calabro wrote:

On 3/26/2013 5:48 PM, Anderson, Kurt wrote:

I have a stored procedure and it was returning an output parameter.

People are whining because of the effort they have to go through to
consume an output parameter (in Java). Ok, fine (yet here I am, going
through 'effort,' but I like to learn so I guess that's the difference).
So I'm trying to switch the stored procedure to return the SmallInt value
as a single result set. However it doesn't seem to be working.

In the create procedure statement, after the parameter list, I have:
Result Sets 1
Language SQL

At the very bottom of the procedure (just before the "End"), I have:
DECLARE rsCursor CURSOR FOR SELECT rtnTracking FROM

sysibm/sysdummy1;

OPEN rsCursor;
SET RESULT SETS CURSOR rsCursor;

rtnTracking is a local variable:
Declare rtnTracking SmallInt;

First, I'm getting an error.
Second, I hope there's a better way to set a local variable to a result

set w/o doing a "fake" select.

The error (on the Declare Cursor line):
Position 13 Token RSCURSOR was not valid. Valid tokens: GLOBAL.

I'm at IBM i 7.1.

You don't have to make a fake SQL call in order to return a result set;
You can return an array - even an array of one element.

// this is the result set we'll be returning
// the names here are what the caller will see
drs ds dim(1000) qualified
d count 10i 0
d name 50 varying

// here's the part that tells the database manager how to handle
// the result set
exec sql
set result sets array :RS for :ROWCOUNT rows;

*inlr = *on;

--buck

--
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.