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

[Mike Wills <mike@xxxxxxxxxxxx>]

Yes, I didn't post all of the code. I am pulling the data and filling the
array. If this should work. The problem is elsewhere.

--
Mike Wills
http://mikewills.me


On Wed, Feb 6, 2013 at 11:29 PM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>wrote:

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