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

He needs to deal with a multi-page subfile where the first & last record may well be off the screen. I believe that if he defines, for each screen,
SFLCSRRRN(&CSRLOCRRNA)
TOPRECA 4S 0H SFLRCDNBR(CURSOR|*TOP)
CSRLOCRRNA 5S 0H
...
SFLCSRRRN(&CSRLOCRRNB)
TOPRECB 4S 0H SFLRCDNBR(CURSOR|*TOP)
CSRLOCRRNB 5S 0H

And
if CSRLOCRRNB <> 0;
TOPRECB = CSRLOCB;
endif;

and the same for A.

This needs to happen every cycle, That should get his desired results.

CURSOR|*TOP) choices will be depending on whether he wants the subfile(s) returned to the same place, or if he wants to automatically put the last record used at the top of the panel.

In my experience, he can also use the record name to determine when to update TOPRECA/B, using RTNCSRLOC(&REC &FLD).

On 10/5/2015 10:44 AM, Jeff Young wrote:

Mark,
In that case, it would be best to manually save the first/last record
number in the second subfile and then loading them when needed to display
it.

Jeff Young
Sr. Programmer Analyst

On Fri, Oct 2, 2015 at 8:22 AM, Mark Murphy/STAR BASE Consulting Inc. <
mmurphy@xxxxxxxxxxxxxxx> wrote:

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.