Yes, without PAGEDOWN, I the subfile will never return to my program to load the next page of records. I am using this for Add and change mode where the user can fill up a page of comments, and page down to add another page. I don't want to just allocate 9999 lines of comments for each quote. They will never use that many. But If I pick a more reasonable number like 100, and cap it there, then odds are someone will complain because they can't add all the comments they want. This way I don't have a giant empty subfile. It is cleaner that way. This is the only time I have seen this not work, and I am not sure what the issue is.
Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx
-----Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx> wrote: -----
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
From: Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx>
Date: 03/10/2015 01:10PM
Subject: RE: Odd subfile paging behavior
I don't remember specifying the PAGEDOWN keyword, maybe that is causing your issue. Does the working format have that?
From the DDS manual
"If the operating system is performing the page function for subfiles (SFLSIZ value does not equal
SFLPAG value), you do not need to specify these keywords."
Scott
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Murphy/STAR BASE Consulting Inc.
Sent: Tuesday, March 10, 2015 10:48 AM
To: Midrange Systems Technical Discussion
Subject: Odd subfile paging behavior
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. Th
e 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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
