关于subfile和rpg的问题，前辈帮我看看程序,谢了

a567

DSPF 代码
     A*%%TS  SD  20050328  142035  ATM02       REL-V5R2M0  5722-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      CA03(03)
     A                                      HELP
     A****************************************************************
     A*  HEADER RECORD TO BE AT TOP OF DISPLAY
     A****************************************************************
     A          R HEADER
     A*%%TS  SD  20050325  140449  ATM02       REL-V5R2M0  5722-WDS
     A                                      OVERLAY
     A                                  2  3'HEADER'
     A                                  2 70DATE
     A                                      EDTWRD('  /  /  ')
     A                                  3 70TIME
     A                                      EDTWRD('  :  :  ')
     A*****************************************************************
     A*  SUBFILE RECORDCORD
     A*****************************************************************
     A          R SF                        SFL
     A            OPT            1A  B 10  3
     A            ZIP            5A  O 10 12
     A            CUST          20A  O 10 27
     A            NAME          20A  O 10 53
     A
     A****************************************************************
     A*  SUBFILE CONTROL RECORDCORDD
     A*****************************************************************
     A          R SCTL                      SFLCTL(SF)
     A*%%TS  SD  20050328  142035  ATM02       REL-V5R2M0  5722-WDS
     A                                      ROLLUP(20)
     A                                      ROLLDOWN(21)
     A                                      OVERLAY
     A  31                                  SFLDSP
     A  32                                  SFLDSPCTL
     A  35                                  SFLINZ
     A  34                                  SFLCLR
     A  33                                  SFLEND(*MORE)
     A                                      SFLSIZ(000
     A                                      SFLPAG(0007)
     A            WDPOS          4S 0H      SFLRCDNBR
     A                                  5  2'TYPE OPTIONS, PRESS ENTER'
     A                                      COLOR(BLU)
     A                                  6  2'2=CHANGE 5=DISPLAY'
     A                                      COLOR(BLU)
     A                                  8  2'OPT'
     A                                      DSPATR(HI)
     A                                  9  2'---'
     A                                      DSPATR(HI)
     A                                  8 12'ZIP'
     A                                      DSPATR(HI)
     A                                  9 12'-----'
     A                                      DSPATR(HI)
     A                                  8 27'CUSTOMER'
     A                                      DSPATR(HI)
     A                                  9 27'--------------------'
     A                                      DSPATR(HI)
     A                                  8 53'CONTACT NAME'
     A                                      DSPATR(HI)
     A                                  9 53'--------------------'
     A                                      DSPATR(HI)
     A****************************************************************
     A*  WRITE IF SUBFILE IS EMPTY
     A****************************************************************
     A          R EMPTY
     A                                      OVERLAY
     A                                  8 12'THE SUBFILE IS EMPTY'
     A****************************************************************
     A*  FOOTER RECORD TO BE WRITTEN AT THE BOTTOM OF THE DISPLAY
     A****************************************************************
     A          R FOOTER
     A                                      OVERLAY
     A                                 23  3'FOOTER'
     A                                 23 47'F3---退出'
     A                                      COLOR(BLU)
     A                                 23 62'F12---取消'
     A                                      COLOR(BLU)


RPG 代码
*****************************************************************
     FTESTADDLF UF   E           K DISK
     FTESTM10   CF   E             WORKSTN
     F                                     SFILE(SF:RRN)
      *****************************************************************
     DRRN              S              4S 0
     D
     C
     C                   SETON                                        34
     C                   WRITE     SCTL
     C                   SETOFF                                       34
     C
     C
     C                   Z-ADD     0             RRN
     C                   Z-ADD     0             WDPOS
     C                   READ      FMT1
     C                   DOW       NOT %EOF
     C                   IF        RRN<9998
     C                   ADD       1             RRN
     C                   ADD       1             WDPOS
     C
     C                   WRITE     SF
     C                   READ      FMT1
     C                   ENDIF
     C                   ENDDO
     C
     C                   IF        RRN>;0
     C                   EVAL      *IN31=*ON
     C                   EVAL      RRN=1
     C                   ENDIF
     C
     C                   EVAL      *IN33=*ON
     C
     C                   IF        RRN<=0
     C                   WRITE     EMPTY
     C                   ELSE
     C                   SETON                                        31
     C                   ENDIF
     C
     C                   WRITE     HEADER
     C                   WRITE     FOOTER
     C     *IN03         DOWEQ     '0'
     C                   WRITE     SCTL
     C                   ENDDO
     C
     C                   MOVE      '1'           *INLR
     C

   
运行后，按什么都不管用，一直在闪，按pagedown，pageup也不管用，而且字段名称就是sf里的标题也没了，究竟是怎么回事啊？谢谢了，我搞了2个星期终于能显示多条了，可就是死循环。

a567

怎么没人帮我啊？是我贴的不对吗？指点一下吧，要不然又要弄2个星期了

Xue Li

The last section:

*IN03   DOWEQ '0'
    Write SCTL    (Change this to EXFMT  SCTL)
     ENDDO

If this does work, let me know, I will load it to my machine and try to help you.

xbreeze

IF        RRN<=0
    C                   WRITE     EMPTY
    C                   ELSE
    C                   SETON                                        31
    C                   ENDIF
既然你的rrn为0或负数，就不应该将31 SETON，这样子SFLDSP被使用，但你又没有SUBFILE存在，就会报错

xbreeze

不好意思，看错了，*IN03   DOWEQ '0'
   Write SCTL   
    ENDDO
不对呀，直接改程  SETON      32
EXFMT   SCTL
SETOF     3132
不过因为你的WDPOS 定得有问题，你的程序可能还是有错