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

Its not ideal, but you can write the SQL statement to say where HID >=:pID.
You have to close and reopen the cursor for a change in :pID to take
affect, but the real issue is that you can't read backward to values
previous to that key on that open cursor. Our ERP package does this, so
that if you do what to scroll backward from the current position-to key,
you have to clear the key on the screen. You didn't say this was a display
application, so I'm just assuming here.

For me, I find it better to use an expanding subfile, and do repeated reads
to manually find the value if a position-to is required. This way, a
scrollable cursor is not needed. I have one application with a scrollable
cursor, and I didn't find a lot of advantage to it.





From: Booth Martin <booth@xxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Date: 08/08/2016 10:49 PM
Subject: SQLRPGLE - scrollable cursor, set at a specific record
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



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.