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

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.