Re: Display last item of SFL

date: Mon, 13 Dec 2021 11:29:00 +0100
from: Patrik Schindler <poc@xxxxxxxxxx>
subject: Re: Display last item of SFL

Hello Gad,

Am 13.12.2021 um 10:13 schrieb Gad Miron <gadmiron@xxxxxxxxx>:

I need to display several screens worth of a SFL and would like to first

display

the last SFL screen with the last item at the bottom line of that

screen. the user may then Page-Up to see previous items. I've done such
things in the (hazy) past but I fail to remember/locate a working PGM/DSPF.

I would appreciate any advice/example

This highly depends on if you want a load-all or a load-paged SFL.

A load-all is easy: Just don't set SFLRCDNBR to 1 after loading all the
records.

A load-paged is a bit more work. I'd do a SETGT on the accompanying
database file, and do the same number of READP/READPE as you've defined in
SFLPAG without anything else. (I prefer to do this on a secondary recfmt in
an LF, containing only key fields, to omit reading unnecessary data.) Then
start to do READ/READE from there in the "proper" LF's recfmt (with all
fields for the DSPF's SFL), and WRITE to the SFL as usual. Don't set
SFLRCDNBR to 1 after loading the records.

See examples (without your request for last-record-display) on
https://github.com/PoC-dev/as400-sfltemplates-german

:wq! PoC