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

Consider ditching the "Position To" paradigm when moving to SQL.

It's tied into the fact that with RLA, You're stuck with pre-defining a
particular (set of) field(s) to order by and positioning yourself somewhere
on the resulting list.

SQL allows you to define a set of fields to "filter on", using "equal",
"starts with", "ends with", or "contains"; plus SQL allows you to defined
an independent set of fields to ORDER BY.

Simply replacing RPG RLA op-codes with their SQL equivalent is a bad idea
IMHO; performance is worse and there's no real benefit to it.

If your users have to page through more than a handful of screens, they are
wasting their time.

Charles


On Mon, Aug 8, 2016 at 10: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.