RE: SETLL in SQL ?

Joe - go read up on scrollable cursors. You are too intent on making the
point that you cannot do keyed reads.
What I reacted to was plain and simple your statement that you cannot move
backwards in a cursor without
closing and opening it.

Like I said, go read up on scrollable cursors, they are available on
i5OS/OS400, at least from v5.2 up. You do not have to
close the cursor to position to the previous record, and the start of the
cursor, and the end, and any record in between,
or relative to your current position.

As for positioning within an SQL cursor by key- well - that seems more than
a little silly to me. Design the query
so your data comes back exactly in the order you need it, and with all the
data you need available for each record.

If the task doesn't fit into SQL, then use something else, or redesign the
task.

-Paul

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx] On Behalf Of Joe Pluta
Sent: Thursday, October 11, 2007 9:37 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: SETLL in SQL ?

From: Paul Raulerson

You didn't hear what I asked Joe; I asked about scrollable cursors,

which

*do* allow you to
move around by relative position in a cursor. As in this kind of

stuff.

Note the fetch statement.

Paul, you are missing the point. A FETCH RELATIVE does not position by
key.
You cannot position to the first record with a "G" by using a single
FETCH
RELATIVE because you don't know how many records to use in the RELATIVE
clause. The best you can do is jump around the file using an old-
fashioned
binary search, and believe me, that won't perform too well on a large
file.

Have I made myself clear? If not, there's really nothing else I can
say.

Joe

EXEC SQL

FETCH RELATIVE 3 FROM THISEMP

INTO :EMP-NUM, :NAME2,

:JOB-CODE

END-EXEC.

--
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.