CPF5149 带 setll *loval

Question

当我尝试设置逻辑文件时出现以下错误 他是我的代码：

H OPTION(*NODEBUGIO:*SRCSTMT) dATFMT(*DMY)                          
FOPRBAS00  IF   E             DISK    extfile('M3FDBDEV/OPRBAS')    
f                                     rename(OPRBAS:OPRBAS_IN)      
f                                     prefix(in_)                   
FOPRBAS    O    E             DISK    extfile('M3FARDEV/OPRBAS')    
f                                     rename(OPRBAS:OPRBAS_out)     
f                                     prefix(out_)                  
FOPRBAS20  IF   E           k DISK    rename(OPRBAS:OPRBAS_20)      
******************************************************************  
Ditno             S             15                                  
Dcono             S              3P 0                               
Dprrf             S              2                                  
Dfvdt             S              8P 0                               
******************************************************************  
                                                    
   SETLL *loval OPRBAS_IN ;   
   Read OPRBAS_IN ;                                                 
   Dow not %eof();                                                  
   ......
    Read OPRBAS_IN ;
    enddo;
   .....

你能帮我一下吗？ 谢谢你

Answer 1

您应该使用

*START

而不是

*LOVAL

来定位到第一条记录。

请参阅SETLL操作代码文档以获取更多信息。