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

My personal thinking is Usually when the subfile involve searching field I
do not use sql I think it doesn't worth to work the subfile using sql. I
use all free format rpg with logicals that help me
on the search, however If any validation need to be done against those
fields like uppercase, check if it is a valid entry or things like this I
use sql as possible as I can.


On Tue, Aug 9, 2016 at 1:12 PM, Wilson, Jonathan <piercing_male@xxxxxxxxxxx>
wrote:

On Tue, 2016-08-09 at 10:29 -0500, Bradley Stone wrote:

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.

I would very much like a glance at that if its not to much trouble to
post a few snippets to the forum. :-)

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.

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