Re: Subfile question -- RPG400-L

I'm using fill-page-by-page subfiles all the time.

Just fill the first page of a SFLSIZ > SFLPAGE subfile and display the controller with SFLEND off. If the user pages down you get control again and fill the next page and display again. If you read EOF set SFLEND on and display.

The user can page backwards because this part of the subfile is already filled - happens without interacting with the application program. Also paging forward again is done by the display - only if you hit the "buttom" of the subfile, the control is given back to the program - but only of PAGEDOWN is active - so deactivate it when setting SFLEND on.

So the user has only to wait for one page to fill - but still can page backwards.

It's a bit more to program in your application - but not so much - and it works great.

HTH
Daniel

Am 17.07.2024 um 03:31 schrieb Reeve <rfritchman@xxxxxxxxx>:

I assume the page up/down capability is handled by the workstation
controller. The single-page subfile must be a special case: if I load 200
rows into my 20-line-page-page subfile, I get a workstation controller
error if I try to page past the end. But in a single-page subfile, the
page down key returns control to the application program.

Single-page subfiles were good back in the days of dreadfully-slow
machines. With today's faster machines, taking an extra second to load a
big subfile which the user can page through quickly appears to be a good
design/resource tradeoff. One issue I have with single-page subfiles is
SQL's (or my) inability to read backward, past the starting point, in a
file with multiple keys. There's little I miss about record-level access
except for READE, READP, and READPE...I guess I have to experiment a bit
more!

On Tue, Jul 16, 2024 at 1:11 PM Daniel Gross <daniel@xxxxxxxx> wrote:

Hi Reeve,

this will of course work for the time-out.

But the real question was, how could the program be designed, so that
Page-Up and Page-Down in the subfile "reset" the time-out. But as the
display is handling paging in a load-once subfile completely independent
from the application - the time-out is hitting, even as the users page-up
and page-down thru the subfile.

The only solution to prevent this, is using a one-page subfile and do the
paging manually by the application program - in this case, the display wont
time-out because one page-up and page-down the control is given back to the
program.

Regards,
Daniel

Von meinem iPad gesendet

Am 16.07.2024 um 21:47 schrieb Reeve <rfritchman@xxxxxxxxx>:

Timeout with a multi-page subfile: set the display file with an INVITE,
include MAXDEV(*FILE) in your DCL-F statement, WRITE the control record,
READ the file, and check the display file status for 01331 (timeout)
immediately after the READ.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.