STRPCCMD命令突发失效，特殊调试场景可正常运行求排查思路

问题背景 #

现有一段RPG程序代码，用于通过IBM i调用Windows端Word打开IFS中的文档：

// Editor voor blob opstarten
@cmdString = 'STRPCO';
callp(e) excCmd(@CmdString :%len(@CmdString));

@cmdString = 'STRPCCMD PCCMD(' + '''' +
             'CMD /C START ' +
             '\' + %trim(@systeemNaam) +
              %trim(@blob_name) +  ''''  +
              ') PAUSE(*NO)';
exccmd(@CmdString :%len(@CmdString));

实际生成的最终执行命令为：

STRPCCMD PCCMD('CMD /C START \SYSTEMNAME>/INPUT/PZ/TEMP/<DocumentName.doc') PAUSE(*NO)

该代码正常运行9年2个月后突然报错，用户点击错误弹窗后触发RPG程序错误，且存在以下异常现象：

• 调试规避报错后重新执行，功能可正常运行，且当前会话未关闭时始终正常；
• 新建会话执行通常报错，但在倒数第二行（exccmd调用前）设置断点等待几秒后按F12继续，文档可正常打开。
  已确认IBM i及IFS权限与故障前无变化，未找到明确故障原因。

排查思路与解决方案 #

1. 处理STRPCO初始化延迟问题
   代码中调用STRPCO后直接执行STRPCCMD，大概率是PC服务器连接（PCO）初始化未完成导致后续命令失败。新建会话时PCO需要重新建立连接，耗时比已有会话长，断点等待相当于给了初始化缓冲时间。

   • 解决方案：在STRPCO调用后添加固定延迟，或者循环检查PCO就绪状态。例如：

     @cmdString = 'STRPCO';
     callp(e) excCmd(@CmdString :%len(@CmdString));
     // 添加3秒延迟等待PCO初始化完成
     dlyjob dly(3); 
     

2. 校验命令字符串格式
   观察生成的命令，路径开头的\SYSTEMNAME>/格式存在疑问——IBM i访问IFS的Windows映射路径通常应为\\SYSTEMNAME\INPUT\PZ\TEMP\<DocumentName.doc，当前路径的>符号可能是变量拼接错误，或是Windows端网络映射的命名异常。

   • 解决方案：输出完整的@cmdString变量值，检查systeemNaam和blob_name的拼接结果是否符合Windows路径规范；若路径包含空格或特殊字符，需用双引号包裹（RPG中双引号需转义为""），例如：

     @cmdString = 'STRPCCMD PCCMD(' + '''' +
                  'CMD /C START """' +
                  '\\' + %trim(@systeemNaam) + '\' +
                  %trim(@blob_name) + '"""' +
                  ') PAUSE(*NO)';
     

3. 排查Windows端运行环境变化
   故障突然出现，可能是Windows端的系统更新、Office版本更新、IBM i ACS客户端组件变化导致命令执行异常。

   • 排查方向：对比故障前后Windows端的更新记录，测试其他客户端是否存在相同问题；尝试重新安装IBM i Access Client Solutions中的PCSM组件。

4. 完善RPG错误处理逻辑
   当前代码仅给第一个excCmd添加了(e)错误处理，第二个exccmd未捕获错误，可能STRPCO调用失败但未被察觉，导致后续STRPCCMD无有效PCO连接。

   • 解决方案：给第二个exccmd也添加错误处理并记录日志，例如：

     callp(e) excCmd(@CmdString :%len(@CmdString));
     if %error();
         // 记录错误码到日志文件或屏幕显示
         dsply ('STRPCCMD执行错误：' + %char(%errno()));
     endif;
     

5. 检查IBM i端PCO会话资源
   新建会话时可能遇到PCO会话资源不足，或旧会话未正确释放的问题。

   • 排查方向：用WRKACTJOB查看PCO相关作业（如QP0ZSPMT），检查是否有挂起的异常作业；尝试重启PCO服务：

     ENDTCPSVR *PCO
     STRTCPSVR *PCO
     

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