如何解决想要更新到 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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。