帮助看一下代码，F行的这两个文件什么关系

jinaolei

     H DEBUG DATEDIT(*YMD)
     F*----------------------------------------------------------------*
     F*  SWBA02                                                        *
     F*  Supplier Infor                                              *
     F*----------------------------------------------------------------*
     FSWBA02DF  CF   E             WORKSTN INFSR(*PSSR)
     F                                     SLN(@LN)
     F                                     INFDS(@INFDS)
     F*  The screen input/output file.
     F*----------------------------------------------------------------*
     F@IBYSYS   UF   E           K DISK    INFSR(*PSSR)
     F*----------------------------------------------------------------*
     F*----------------------------------------------------------------*
     FSAUADPU   IF   E           K DISK    INFSR(*PSSR)
     F                                     INFDS(@INF01)
     F*  Supplier Details
     F@RRNFDB   IF   E             DISK    INFSR(*PSSR)
     F                                     USROPN
     F                                     RENAME(SAUADPFRRNRED)
     F*  Record address version of the browsed file
     F*----------------------------------------------------------------*

     
     新手在练习，从别的地方拷过来一个程序，以上代码片段是文件声明，程序所要使用的文件、子程序都拷过来了，子程序和文件也编译通过了。
   我在编译这个程序的时候报找不到@RRNFDB 这个文件，我用wrkobj查过了没有@RRNFDB的定义
   我又使用命令DSPPGMREF看了原来的程序发现
  
   Object  . . . . . . . . . . . . . . . . . . :     @IBYSYS                 
    Library . . . . . . . . . . . . . . . . . :       PYSTAGUA              
    Object type . . . . . . . . . . . . . . . :       *FILE                 
    File name in program  . . . . . . . . . . :       @IBYSYS               
    File usage  . . . . . . . . . . . . . . . :       Input                 
                                                      Update               
    Number of record formats  . . . . . . . . :           1                 
       Record Format      Format Level Identifier     Field Count            
         @IBYSYSR              408FB53041568                16      

   Object  . . . . . . . . . . . . . . . . . . :     SAUADPU                  
     Library . . . . . . . . . . . . . . . . . :       PYSTAGUA               
     Object type . . . . . . . . . . . . . . . :       *FILE                  
     File name in program  . . . . . . . . . . :       @RRNFDB   
     File usage  . . . . . . . . . . . . . . . :       Input                  
     Number of record formats  . . . . . . . . :           1                 
       Record Format      Format Level Identifier     Field Count            
         SAUADPF               45A5628C88127                27  

    从上面的信息看@RRNFDB和SAUADPU有什么关系，为什么找不到定义，@RRNFDB是怎么定义的？
   
   

   

   

   

jinaolei

查了每个库就是没找到@RRNFDB

cuilei286

应该是OVRDBF的问题，这个程序有上位程序吗？是CL调这个程序的？

jinaolei

我还不知道OVRDBF是啥意思
程序的最后一行的代码是 OVRDBF @RRNFDB SAUADPU
这个程序被另外的一个RPG程序调用

cuilei286

那你就先在命令行执行：OVRDBF @RRNFDB SAUADPU，然后在编译。如果想了解OVRDBF是什么，自己去查查书，这样会记得更牢固。

jinaolei

回复 6# cuilei286


    谢谢，我回头试试

jinaolei

回复 5# cuilei286


我在命令行试了OVRDBF @RRNFDB SAUADPU，还是编译通不过
今天把拷回来的代码阅读了一下发现
代码里有个子程序
C     @RRNO         BEGSR                                       
C*  ........Perform Override and open RRN File                  
C                   CALL      'QCMDEXC'                          
C                   PARM                    @ZA                  
C                   PARM      50            @ZCMDL           15 5
C                   OPEN      @RRNDBF                           
C*                                                               
C                   ENDSR                           


@ZA是这样声明的
D @ZA             S             50    DIM(1) CTDATA PERRCD(1)
查看资料发现这是一个包含一个元素的数组，CTDATA 表明是编译时赋初始值的数组，PERRCD(1)表明初始值使用底部数据，每行为一个元素
查看了底部数据为
**
OVRDBF @RRNFDB SAUADPU

子程序@RRNO在这个程序里面是首先执行的，QCMDEXC执行的时候参数@ZA应该是OVRDBF @RRNFDB SAUADPU，参数@ZCMDL为50

到现在还是弄不明白@RRNFDB是怎么回事，查看了其他几个功能相同的程序，都用到了@RRNFDB这个东东，感觉它像一个PF，觉的它与OVRDBF命令有关，但是不知道怎么弄





           


   

cuilei286

回复 7# jinaolei

执行了OVRDBF后编译不能通过，报的错误是什么？应该就不会在报找不到@RRNFDB了，可能是其他的错误导致编译不通过，你在查查原因。