Or, what would cause the Pagedown key to return to your program every time rather than when the system is on the last page?

I have two subfiles defined the exact same way. One works properly, the other does not.

Here is the control format for the one that fails:
A R JQCFMC
A TEXT('Quote comments control format-
A ')
A SFLCTL(JQCFMB)
A SFLSIZ(0015)
A SFLPAG(0014)
A RTNCSRLOC(*RECNAME &CSRRCD &CSRFLD)
A RTNCSRLOC(*WINDOW &CSRROW &CSRPOS)
A CSRLOC(CSRROW CSRPOS)
A OVERLAY
A SFLCSRRRN(&SFLCSR)
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A 51 SFLEND(*MORE)
A N51 PAGEDOWN(08)
A SFLCSR 5S 0H
A CSRRCD 10A H
A CSRFLD 10A H
A CSRROW 3S 0H
A CSRPOS 3S 0H
A JQCRN 4S 0H SFLRCDNBR(CURSOR)

I am loading two pages of records to start with, and it initially displays the first page. If I press pagedown, it loads and positions to page 3. Positions to page three because the program positions to the new page on page down. But it shouldn't be dropping back to the program until it pages to page 2 first. In the feedback area, the field showing minimum subfile record on the page (at position 378) correctly indicates record 1 the first time Pagedown is pressed. Correctly because that is the first subfile record on the display. I guess it could be incorrect because in order for the PageDown key to return to the program it should say 15, but it says 1. If I page back up to the top, or anywhere in the subfile for that matter, and press PageDown, it immediately comes back to the program. The feedback field is correct for the first subfile record on the screen. The frustrating thing is this used to work, and I don't remember changing anything that would make it stop working. The other thing that is strange, is that it works fine if SFLEND is on. Then it pages to the second page before telling me that I have paged beyond the end of the subfile. And SFLROLVAL is not specified anywhere on the subfile.

Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.