如何在AS400系统中调试RPG程序处理的表内特定问题记录

下面是三种可落地的解决方法，效率从高到低排列：

1. 构建小体积测试集直接替换源表 #

• 先导出所有已知异常记录到独立的测试表，不需要修改程序源码，执行OVRDBF命令覆盖程序的表指向：

  OVRDBF FILE(你的业务表名) TOFILE(测试库名/测试表名) OVRSCOPE(*JOB)
  

• 启动调试后DOW %EOF循环只会遍历异常记录，条件断点可以瞬间触发，不需要扫描数百万条冗余数据，调试完成后执行DLTOVR FILE(你的业务表名) OVRSCOPE(*JOB)清除覆盖即可。

2. 键值直查跳过全表遍历 #

如果你的业务表有唯一索引（账户ID、流水号等可唯一标识异常记录的字段）：

• 在DOW %EOF循环的第一行临时添加CHAIN语句，直接定位目标记录：

  DOW NOT %EOF(业务表名);
      // 临时添加的代码段开始
      CHAIN (目标异常记录的键值) 业务表名;
      // 临时添加的代码段结束
      
      // 原有计息逻辑
      ...
  ENDDO;
  

• 在CHAIN语句后设置普通断点，程序启动后会直接加载目标记录，完全不需要遍历前面的无关记录，调试结束后删除临时添加的CHAIN代码即可。

3. 高版本调试器原生支持键值断点 #

如果你使用的是IBM i 7.3及以上版本，搭配ACS（IBM i Access Client Solutions）的图形化调试器：

• 断点设置界面可以直接指定「索引键匹配触发」，调试器会直接调用数据库的索引能力定位记录，不需要逐行扫描全表，效率比传统绿屏调试器的条件断点高10倍以上，不需要修改任何程序代码。

小提示：如果异常记录没有固定键值，你可以提前把所有异常记录的键值存在一个临时数组里，在循环内加一行数组匹配判断，在匹配成功的行加断点，运行效率远高于调试器自带的条件断点。

内容的提问来源于stack exchange，提问作者Edmund Doyle