想要更新到 RPGLE 中的 SUBFILE 时，如何在没有事先输入的情况下遇到错误 UPDATE 和 DELETE

问题描述

我遇到了如下图所示的错误：

如果我输入空白选项或错误的选项，我会得到如上的错误

发生此错误时，我无法更新、删除和刷新。

当我想更新现有记录以及我输入错误的选项和空白选项时，就会发生这种情况。当我调试时，我意识到要更新子文件时出现错误。

我该怎么办？我需要在更新子文件之前从逻辑文件链接吗？ 请帮我。提前致谢

解决方法

您应该将错误显示为文本，而不是包含图片链接。

还要给出错误 ID，CPFxxxx 而不仅仅是描述。

该消息一目了然，您可以在第二级消息文本中找到更多详细信息。 （如果是活动作业，请在消息上按 F1；如果作业已结束，请查看作业日志。）

您的 UPDSR 或 DLTSR 正在执行 UPDATE 或 DELETE 操作码，而没有先通过 CHAIN 读取记录。

,

指示符 *in91 必须指定为 READC 语句的 EQ 结果指示符。两个 READC 语句。或者，将 *in91 的测试替换为内置 %eof 变量的测试。

c     OSR           Begsr                                               
c                   ReadC     SFL01                                  91 
c                   DOW       *IN91 = *OFF                              

** ------------------------- osr_eof -----------------------
c     OSR_eof       Begsr                                   
c                   ReadC     SFL01                         
c                   DOW       %eof = '0'                    
                                                            
c                   Select                                  
c     OPT           WhenEQ    2                           
c                   Exsr      UPDSR                         
c     OPT           WhenEQ    4                           
c                   Exsr      DLTSR                         
c     OPT           WhenEQ    5                           
c                   Exsr      DSPSR                         
c                   Other                                   
c                   Exsr      ERRSR                         
c                   EndSL                                   
                                                            
c                   Clear                   optn            
                                                            
c                   UPDATE    SFL01                         
c                   READC     SFL01                         
                                                            
c                   Enddo