× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.