RE: [Fwd: A question about subfile operations]

If you use a relative record field in your subfile and set it to the first 
record on the page you want to display, you will see the next page and not just 
the first page all the time. This means that when only 4 records are loaded 
then you will see that page and still be able to pageup to see the previous 
pages.  See my lengthy example.  This code will do just what I have suggested 
here.
 
Marvin
 
 
 

________________________________

From: rpg400-l-bounces@xxxxxxxxxxxx on behalf of Pete Helgren
Sent: Wed 6/29/2005 11:13 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: [Fwd: A question about subfile operations]



OK....My first instinct is not to rewrite this so I am following Lim and
Ron's similar suggestions (a DO loop surrounding the EXFMT statement
conditioned on F3/F12).

Here is what I found....

This works, almost.  What I would want to have is a conditional on F3or
F12 to exit the program but still have enter be the primary means of
selecting a value and then ending the program.  Right now, an F3 or F12
will return the selected value but that is counter intuitive (I think F3
or F12 should end the program and NOT return a value...only selecting a
value and pressing enter should).  In any case, it still doesn't work
with selecting a value and pressing enter to return.

The second problem is more interesting.  I have 24 records loaded in the
subfile. Each page displays 10 entries but I never see a last page with
4 entries, it just displays the first 10 again.  In other words I only
see 20 records (2 pages of 10 entries) , never the last 4.

Perhaps I have to start from scratch to get this to work properly (your
recommendations requested).  The problem is that I have three other
programs just like this that I'd also have to re-create if I started
from scratch.

Parse other posts for the source....I'll re-post everything if that is
more helpful.

Many thanks,

Pete

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