RPG 程序问题！！！

chen405

最近在看RPG代码  程序这样写的（我把主要的写一下）
FDETLB02 IF  E           K        DISK                      A        
×××
/COPY QCPYSRC,DPARM
I                                       11  22 G@T                        
I                                      109 120 G@H      
×××                 
* < 初期処理 >                                                            
C                     EXSR #INIT                                          
* < 中心処理 >                                                            
C                     EXSR #MAIN                                          
* < 終了処理 >                                                            
C                     EXSR #END
×××                                            
C           *ENTRY    PLIST                                                
C                     PARM           P@PARM150         出力条件            
C                     PARM           P@OUT   1         出力結果     
C           #INIT     BEGSR                                          
C                     MOVELP@PARM    DPARM                     
C   99N99             WRITEETREC                     
                ----------------------
在下面读其他表的时候有 用到（99）

C   24      EDKEY4    READEEDREC2                   99                     


DPARM  这个文件中没有出现（99）

代码有点看不懂。。。
这样写，程序不会出错吗？   （99）这个应该会出7030的错误吧？
有没有知道的，能不能帮忙解释一下
主要是这行代码
C   99N99             WRITEETREC
虽然程序编译过了  可是理解不了  为什么这样写代码

[ 本帖最后由 chen405 于 2009-12-25 16:05 编辑 ]

newbiezhang

99N99 应该是有问题的。
前置的指示器应该是And关系，99N99的话，应该永远执行不到。手上没有RPG3，你自己看看帮助吧。

franliu

文件  DETLB02 在 F 表里面定义成 i/o 类型， 99n99 运行一个所谓　dummy write, 骗变异程序让它可以通过编译（ile rpg　不需要这样做了）。

它的用途是使文件　DETLB02　不被当作　input only 文件处理。

input only 文件在读的时候是每次读一个 block,

i/o 文件在读的时候每次只读一个记录。

[ 本帖最后由 franliu 于 2009-12-25 22:41 编辑 ]