Re: SQLRPGLE - scrollable cursor, set at a specific record

How I've done this for pagination on web applications (which would also
apply to subfiles) is use a scrollable cursor, but retrieve the RRN of the
result set as well as setting the number of rows to the number to display
on each page (ie, if you're showing 15 records a page, use that in the SQL
statement so it's not doing work it doesn't need to).

Then save the last RRN (and the first) so if they scroll forward or
backward you can use the cursor and position to a specific RRN of the
result set using the RELATIVE keyword.

If you want I can dig up some examples from somewhere... :) They may not
be free format though.

Brad
www.bvstools.com

On Mon, Aug 8, 2016 at 9:48 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

Confused myself again. I am not even sure how to ask the question
clearly. I have defined a scrollable cursor. It sets to Next & Prior
correctly:

... when *in44 or PB2 = 1; // Next Row exec
sql fetch next from C1 into :wRecordDS; when *in45 or PB2 = 2;
// Prev Row exec sql fetch prior from C1 into
:wRecordDS; ...

Here is the Cursor:

... exec sql declare C1 DYNAMIC SCROLL cursor for
select * from FILEA order by HID; exec sql open C1; ...

All that works just fine. Where I am having trouble is with the first
cycle.

... if %parms = 1 and pID <> ' ';_// exec sql fetch ????? from C1
into :wRecordDS ???where HID = :pID;_ else; exec
sql fetch first from C1 into :wRecordDS; endif; ...

If there is a parm I wish to position the file to the key provided. I
can't figure out how to do it.

--
Booth Martin
www.martinvt.com
(802)461-5349

A fool must now and then be right by chance.
--
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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.