有人遇到过*RNF5276的错误吗？(己解决)

ztg2006

RPGLE代码：

FUSERMAST  IP   E           K DISK      
C                   READ      USERMASTR  
C  EUMBNO   DSPLY               
C                   EVAL      *INLR='1'  

错误信息：*RNF5276
The specified Factor 2 entry is not allowed for READ operation; specification is ignored.
(指定的因子2项不允许读操作;规范将被忽略。)

个人推测问题出于文件引用参数：P

franliu

"P" 指明这个文件是“primary file",rpg循环中系统自动读的。你就不必让它读了。

ztg2006

ls的解释很正确，这段代码是从胖有型写的RPG中级培训书中摘取下来的，也不知道哪个地方写错了，代码无法编译，请高手指教。

passthru

引用的胖有形的代码本身就有错误。
FUSERMAST  IP   E           K DISK      
是用于IBM的RPG cycle定义，即文件定义为‘IP’，即输入为主输入。当这个程序被调用时，程序自动把文件‘USERMAST’所有记录遍历，无需在C表中再定义read语句。如果一定要read，编译就会报编译错，即题目所指。否则，要用到程序read处理，需改F表中的定义：FUSERMAST  IF   E           K DISK。

ztg2006

按LS说的，把Read语句去掉，编译OK
既然是程序自动把文件‘USERMAST’所有记录遍历
EUMBNO   DSPLY语句为什么只输出一条呢？
数据库里有4条记录。

fusl520

一般做报表时，用P,S文件比较方便。

好象旧时的程序多是这样的吧。

现在还是习惯用READ,CHAIN,SETLL之类的方法读F文件。

passthru

用P，cycle，速度极快，还没有EUMBNO   DSPLY，每一条记录，就EVAL      *INLR='1'  啦。

ztg2006

有道理，看来这种方式还不行。

huangxkst

回复 1# ztg2006


   改一下代码就可以读到你所有的记录了：
FUSERMAST  IP   E           K DISK      
C                   dow      1=1
C                   if         %eof（USERMASTR  ）
C                   EVAL      *INLR='1'  
C                   else
C  EUMBNO   DSPLY               
C                  endif
C                  enddo
试试

passthru

回复  ztg2006


   改一下代码就可以读到你所有的记录了：
FUSERMAST  IP   E           K DISK      ...
huangxkst 发表于 2010-04-14 11:23

    呵呵，道理一样，P 1微秒就%eof啦，display needs n(ns) more.