Re: Subfile cursors with SQL

[Charles Wilt <charles.wilt@xxxxxxxxx>]

You should be able to do that with a
FETCH RELATIVE :startPos from mycursor for 15 rows into :myArray

Where startPos is either
1
-30 (-31?)

But honestly, I'd do it as a load-all subfile, displaying a message if
there's more than 9999 rows that match the filters.
Much better fit for a scrollable table on a web page.  And if your still
stuck on 5250, you've can add a scroll bar there too.
https://boothmartin.midrange.com/Subfiles/Scroll_Bar/scroll_bar.html

And if you refuse to do a load all, consider at least an extending
subfile.
That way all you need to worry about is the next page (page down).

Charles

On Wed, Sep 28, 2022 at 3:19 PM DEnglander--- via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> I remember attending a course awhile ago where the instructor was teaching
> about [I think] loading a page-at-a-time subfile with scrollable cursors.
> I cannot seem to find any handouts or notes about that.
>
> What I am trying to do is load a small [maybe 15 lines] subfile and allow
> the user to press PageDn or PageUp to get the next or prior 15 rows based
> on where the cursor currently resides.
>
> I want to keep this in SQL [as opposed to Native] because the user can
> specify filtering, which is incorporated into the DECLARE CURSOR
> statement.
>
> Does anyone know of any examples or URLs that can point me in the right
> direction?
>
> Thank you,
>
> Doug
>
>
>
> "CONFIDENTIALITY NOTICE:  This e-mail transmission (and/or the attachments
> accompanying it) contain confidential information belonging to the sender.
> The information is intended only for the use of the intended recipient.  If
> you are not the intended recipient, you are hereby notified that any
> disclosure, copying, distribution or the taking of any action in reliance
> on the contents of the information is strictly prohibited.  Any
> unauthorized interception of this transmission is illegal under the law.
> If you have received this transmission in error, please promptly notify the
> sender by reply e-mail, and then destroy all copies of the transmission."
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com