Re: today's how-best-to question...

----- Original Message -----
From: jeffw@xxxxxxxxxxxxxxxx
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Subject: Re: today's how-best-to question...
Date: Tue, 15 May 2007 10:44:46 -0500


Bryan
If you want quick and easy, I agree that I seriously doubt any user will
page down through the 9,999 subfile records. Just put this code on your
build routine.

READ ITEMAS
DOW NOT %EOF(ITEMAS) AND RRN1<9999
do something
EXSR $WRITES01SFL

It is quick and easy. May not be the best but it does work. I would
recommend you have a position to field on the screen. That way if the user
needs to get to something beyond 9,999 they can. Hope this helps.

Jeff Williams


On Tue, 15 May 2007 09:55:37 -0400, Bryan Dietz wrote

I wasn't very clear. The first api QUSLOBJ gets the list and
then I use another API to get information about each object from
the list api.

Bryan

Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx said the following on 5/15/2007 9:33 AM:

I am not inclined to use the initial user space as I would >>

have to keep retrieving the object info for each page up/down
request.

actually you won't have to retrieve but one time for page up and one

time

for page down. just move the pointer to the correct entry...

page up:

pointer = pointer - (entrysize * sflpagesize) ... (make sure

you don't > go past the first entry)

page down:

pointer = pointer + entrysize (but you'll have to make sure you

don't go > past the last entry)

Thanks,

Tommy Holden

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

--
WOW! Homepage (http://www.wowway.com)

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