RE: SETLL in SQL ?

Waldon,

An interesting solution.

It's be a little tricky, you'd have to FETCH RELATIVE -NumberScreenRows, the read forward in the
cursor.

If they hit page up again, you'd need to FETCH RELATIVE -(2*NumberScreenRows).

Hit page up again, still need FETCH RELATIVE -(2*NumberScreenRows).

Have to have some code to handle the possibility that the BOF doesn't occur in a full screen. More
difficult would be if the BOF wasn't a full screen, but you output a full screen and the user starts
paging forward, you'd end up reading from both cursors at 'Gre.'

Still an interesting solution.

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Walden H. Leverich
Sent: Thursday, October 11, 2007 4:03 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: SETLL in SQL ?

If you need to position by key and then move in either direction,

forward or

backward, the only way to do it is using ISAM, unless of

course you are

willing to open and close cursors.

What about 2 cursors, one looking forward, one backward?
Position to customer name 'Gre' would be 2 cursors, first:

Select * from customer where customername >= 'Gre'

Second:

Select * from customer where customername < 'Gre' order by
customername desc

Load your first page from cursor1. If you page down, read the
next 10 rows from cursor1 (assuming a 10 row subfile). If you
page UP on page1 read the first 10 rows from cursor2.

-Walden

--
Walden H Leverich III
Tech Software
(516) 627-3800 x3051
WaldenL@xxxxxxxxxxxxxxx
http://www.TechSoftInc.com

Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)


--
This is the RPG programming on the AS400 / 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.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.