有关翻页的问题请教各位

小行星

我有一个与翻页相关的小问题,麻烦各位帮忙.我想在翻页的时候在右下角用MORE和BOTTOM提示,但是我翻到底它还是显示MORE而不变成BOTTOM.书上也没有讲这么详细.
     有劳各位帮忙指点一下.多谢了.

摘星

不知道你是用系統自動處理翻頁還是人手控制?
如果是用系統,你的SUBFILE數量(SUBSIZE)比實際記錄要大,而且你是用UPDATE  SUBFILE來寫記錄就會出現這種情況,建議你用參數SFLCLR,再用WRITE寫記錄就可以了

小行星

我是初学者,不好意思.我是在显示查询结果时,按pagedown自动翻页,并在右下方显示MORE ,翻到底显示BOTTOM.我是在原来翻页的基础上在显示文件里面加了SFLEND(*MORE)并且它的信号等与ROLLUP相反.其他地方都没有改变.我原来加的一句是SFLEND的信号等跟SFLDSP的相同,只显示BOTTOM.

而且SFLSIZ 的值是SFLPAG的两倍.

摘星

那你是怎樣寫記錄進去的呢?

小行星

我是通过查询逻辑文件把查询结果显示在界面上的.上下翻页都没有问题.就是看着现在用的系统有这个提示.我就照书上在显示文件里加了SFLEND(*MORE).在RPG中没有加任何控制语句.结果就是我说的那样,不能在翻到底时显示BOTTOM.

michael9406

SFLEND(*MORE).加了这个就可以了，你应该再检查一下RPG的源代码。

小行星

楼上说的是只在显示文件里加那一句就可以了？我也是啊。在RPG里没有做任何定义。谢谢指教。我就再看看我的RPG。

bonbonben

你的SUBFILE END的INDICATOR跟主文件的EOF Indicator 设成同一个就可以了。

小行星

麻烦大家给我看一下。我定义的显示文件如下：

   A                                      OVERLAY         
   A N33                                  ROLLUP         
   A                                      ROLLDOWN(41)   
   A  31                                  SFLDSP         
   A  31                                  SFLDSPCTL      
   A  33                                  SFLEND(*MORE)   
   A  32                                  SFLCLR         

有没有错误啊。怎么都不显示。麻烦了。

deeplake

头一次见给ROLLUP前加指示器的。

     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      INDARA
     A                                      ENTFLDATR((*DSPATR RI UL))
     A                                      ROLLUP(25 'Pagedown')
     A                                      ROLLDOWN(26 'Pageup')
     A（下略）

   A          R SFC                       SFLCTL(SF)
     A                                      SFLSIZ(0024)
     A                                      SFLPAG(0024)
     A                                      RTNCSRLOC(&CSRRCD &CSRFLD)
     A                                      CSRLOC(CSRROW     CSRCOL)
     A                                      OVERLAY
     A N27                                  SFLDSP
     A N27                                  SFLDSPCTL
     A  29                                  SFLINZ
     A  27                                  SFLCLR
     A  28                                  SFLEND(*MORE)
     A                                      SFLRNA
     A（下略）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－

rpg中：

C*Set subfile
     C     SFFIL          BEGSR
     C     *LOVAL        SETLL     PF1
     C                   READ      PF1                                          28
     C     *IN28         DOWEQ     '0'
     C                  
     C                  
     C                   (略）
     C
     C                   WRITE     SF                                     30
     C                   READ      PF1                                          28
     C                   ENDDO
     C（下略）
     C                   ENDSR