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

You are performing the EXEC SQL RETURN RESULT SET outside the procedure?!

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
Im
Auftrag von Mike Wills
Gesendet: Wednesday, 06.2 2013 23:13
An: rpg400-l@xxxxxxxxxxxx
Betreff: 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.


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