Re: SFLCSRRRN

In the display file:
A SFLCSRRRN( &SFL1CSRRRN )
A SFL1CSRRRN 5S 0H TEXT('Return RRN where cursor is +
A located')
A SFL1SCROLL 5S 0H SFLSCROLL
A TEXT('Return RRN at top of current +
A subfile page')
A POSCSRHERE 4S 0H SFLRCDNBR(CURSOR)
A TEXT('Position the cursor at the +
A RRN in this field')

In the RPG program:
Before every EXFMT of the subfile control record, when displaying the
subfile itself, always ensure PosCsrHere > 0:
If PosCsrHere = 0;
PosCsrHere = 1;
Endif;

Exfmt SflCtl1;

If Sfl1CsrRRN > 0; // This could be zero if the cursor is not in
the subfile.
PosCsrHere = Sfl1CsrRRN; // RRN where cursor is located when control
returns to program
Else;

PosCsrHere = Sfl1Scroll; // RRN @ top of subfile when control returns to
program
Endif; // (PosCsrHere could still be modified later by
a validation error)

- Dan

On Fri, May 4, 2018 at 2:14 PM, Dave <dfx1@xxxxxxxxxxxxxx> wrote:

What would be the correct way to manage a subfile that uses this keyword?
You can test the value returned against 0 so that you set the RRRN to 1 in
case the cursor was outside the subfile record fomat.

That's fine if you were on page 1 of the subfile, but what if you aren't?