请教一语句

whawkqq

请问一下,如下语句是什么意思啊?

READ  TABLE  PRIOR  RECORD                       
      AT  END  MOVE  "YES"    TO  FLAG.

tigerzt

是COBOL语句吧。
"READ  TABLE  PRIOR  RECORD" 应该是对应RPG中的READP
"AT  END  MOVE  "YES"    TO  FLAG."应该对应是READP结束后执行MOVE "YES" to FLAG变量。

整个的意思应该是读取文件（TABLE）的记录，若该文件已读完而遇文件结束标志，则运行AT END字句中的语句:MOVE "YES" TO FLAG.当然在读取文件（TABLE）之前应该有定位语句到文件尾或指定记录后吧。


不过你最好自己写代码试试。我没用过[READ IN-FILE PRIOR RECORD AT END。。。]的方式，只是用过[READ IN-FILE RECORD AT END。。。]方式过。

[ 本帖最后由 tigerzt 于 2006-12-4 17:01 编辑 ]

whawkqq

以前在PRIOR的位置,我用过NEXT,这个好理解,但是改成了PRIOR就不清楚了