× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.