如何在含多个SubProcedure的RPGLE程序中处理错误？现有方案是否可行？

当前方案的合理性 #

你的方案有一定合理性：

• 用monitor捕获循环内的异常，出错时立即返回cFalse，能有效阻止错误继续扩散
• 逻辑简单直接，上手成本低，适合小型子过程的快速实现

存在的局限 #

但这个方案也有几个明显的不足：

• 错误信息缺失：仅返回cFalse，调用方无法得知具体错误原因（是数组下标越界？字符转换失败？还是字符串拼接溢出？），不利于问题排查
• 资源/状态不明确：中途出错时，workKeyString已经拼接了部分内容，调用方拿到的是不完整数据，却无法判断其有效性
• 冗余的监控块：每次循环都创建一个monitor，虽然RPGLE的monitor性能开销不大，但重复定义属于不必要的代码冗余

优化建议 #

针对这些问题，可以调整为以下更健壮的方案：

1. 扩大监控范围：将整个dow循环包裹在一个monitor中，而非每次迭代，减少冗余
2. 补充错误信息：新增输出参数返回错误代码或描述，或者用%error()、%errno()获取系统错误信息，让调用方精准定位问题
3. 明确状态清理：出错时清空workKeyString，避免返回无效的半完成数据
4. 替换硬编码边界：用%elem(workKeyArray)代替硬写的500，让代码适配数组维度的变更

优化后的示例代码 #

dcl-proc getWorkKeyString;
   dcl-pi *n ind ;
      workKeyArray likeDS(parentWorkKeyArray) dim(500);
      workKeyString like(ISWCDUPDS.IWKEY_ISWC);
      errorCode char(5) options(*nopass); // 新增错误代码输出参数
   end-pi;

   index = 1;
   workKeyString = ''; // 初始化空字符串

   monitor;
      dow (index <= %elem(workKeyArray)); // 用%elem替代硬编码500
         if (workKeyArray(index).workKey <> 0);
            if (index > 1);
               workKeyString = %Trim(workKeyString) + '|';
            endif;
            workKeyString = %Trim(workKeyString) + %char(workKeyArray(index).workKey);
         endif;
         index = index + 1;
      enddo;
      return cTrue;
   on-error;
      workKeyString = ''; // 清空无效数据
      if (%parms() >= 3); // 如果传入了错误代码参数
         errorCode = %char(%errno()); // 写入系统错误码
      endif;
      return cFalse;
   endmon;
end-proc;

总结 #

如果你的场景对错误排查要求不高、子过程逻辑简单，当前方案可以满足需求；但如果需要更健壮的错误处理、便于维护和排查问题，建议采用优化后的方案。

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