Re: Finding the top record in second subfile on a 5250 display

I need a solution that does not require the cursor to be in the second
subfile. SFLCSRRRN returns 0 if the cursor is not in the subfile. In fact,
the times when I don't know where to position that second subfile are
exclusively times when the cursor is outside the subfile.

Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx


-----Booth Martin <booth@xxxxxxxxxxxx> wrote: -----
To: "RPG programming on the IBM i (AS/400 and iSeries)" <
rpg400-l@xxxxxxxxxxxx>
From: Booth Martin <booth@xxxxxxxxxxxx>
Date: 10/01/2015 06:16PM
Subject: Re: Finding the top record in second subfile on a 5250 display

Is SFLCSRRRN(&FieldName) always current with the most recent location of
the cursor on each subfile? Whenever that field is > 0, use it to
update the field SFLRCDNBR(CURSOR).

Something like this:

SFLCSRRRN(&SF1PICKED)
...
SF1PICKED 5S 0H
SF1TOP 4S 0H SFLRCDNBR(CURSOR *TOP)

(not tested, high likelihood for typos.)

On 10/1/2015 3:20 PM, Mark Murphy/STAR BASE Consulting Inc. wrote:

I am talking about two differend subfiles (not msgsfl) on a single

screen. SFLRCDNBR(*TOP) is in my display file, but that lets me tell the
subfile where to start when the subfile is written to the display. I need
to know what row number to put in there. Most of the time I know what
number, and all is good, sometimes though, I just want it to remain where
the user left it because nothing happened to the subfile that the program
knows about. If the user goes in and pages around a little, but then does
something else, the program just shifts the subfile to row 1 because it
doesn't know what else to do. If I knew where the user left the subfile,
then I would know what row number to put in that hidden field.

Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx
--

Booth Martin<br>
www.martinvt.com<br>
(802)461-5349<br><br>

If it has syntax, it isn't user friendly.
--
This is the RPG programming on the IBM i (AS/400 and 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.
--
This is the RPG programming on the IBM i (AS/400 and 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.