RE: Trying to make a RPG Stored Procedure that returns a resultset

Hi Mike,

I haven't worked with result sets in about a year, but here is an example I have in a test program of mine:

D ds_Return DS Qualified Dim( 1 )
D Value 10i 0

// Set the Result Set for the Stored Procedure
EXEC SQL
SET RESULT SETS FOR RETURN TO CLIENT
ARRAY :ds_Return
FOR 1 ROWS;

-Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Wills
Sent: Wednesday, February 06, 2013 4:13 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Trying to make a RPG Stored Procedure that returns a resultset

I have found many sources on line that uses occurs for the array. But I am using dim. Mine doesn't seem to work. What do I need to change or fix?
Also, how do I test to make sure it is returning data before I add to my program?

D rowCount S 10I 0
D pMessages DS likeds(MessageList) dim(30)

P AddMessage B
D AddMessage PI
D message 50A varying const
D warningError N const
D terminalError N const
/free
index += 1;
pMessages(index).Message = message;
pMessages(index).TerminalError = terminalError;
pMessages(index).WarningError = warningError;
rowCount += 1;
return;
/end-free
P AddMessage E

exec sql
set result sets array:pmessages for:rowcount rows;
--
Mike Wills
http://mikewills.me
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.