请教！循环访问子文件。。。

xgame19811024

现在要循环访问一个子文件，如果第一列被选中，则进行一系列计算。现在的代码如下：
F                                     SFILE(SFL2:S2RRN)
....
C                   EVAL      S2RRN = 1                                
C                   READC     SFL2                                   91
C                   DOW       *IN91 = *OFF                             
C                   IF        OPT1 = '1'                    
C......
C                   ENDIF
C                   READC     SFL2                                   91
C                   ENDDO

问题：子文件是有记录的，而跟踪第一步中*IN91＝'1'，不知道什么原因？
这样写是否可以，请高手给与指点。多谢！

sunokla

READC 操作获取子文件部件中下一更改的记录。

当子文件中无更多的更改记录时，可在将设置为开的位置 75-76 处指定指示符。此信息也可从 %EQF 内置函数中获得，若子文件中无更多的更改记录它返回“1”，否则返回“0”。

xgame19811024

opt1是子文件的第一个字段，在输入1后执行程序，循环读取子文件记录，如果为1则计算，但是读不到呀，能不能再说详细些?谢谢！

xgame19811024

读到记录指示器是'0'，也就是'OFF'才对呀？

wnai

在rpg4中用内置函数多好， 一句 dow not%eof就搞掂了