RPGLE MQ监听器异常终止时已处理消息的持久化提交咨询

针对你遇到的手动终止监听器后已处理消息回滚的问题，核心是控制MQ事务的提交时机，以下是具体解决方案：

• 单条消息处理后立即提交
  默认情况下，若MQGET使用了MQGMO_SYNCPOINT（同步点选项），消息会被锁定在未提交状态，直到任务正常结束或显式调用提交。你可以在每完成一条消息的业务处理后，立即调用MQCMIT提交事务，这样即使后续任务被终止，已提交的消息不会回滚。
  RPGLE代码示例：

  dcl-s hConn        like(MQHCONN);
  dcl-s compCode     like(MQLONG);
  dcl-s reason       like(MQLONG);
  
  // 业务逻辑处理完成后执行提交
  callp MQCMIT(hConn: compCode: reason);
  if compCode <> MQCC_OK;
      // 此处添加提交失败的异常处理逻辑
  endif;
  

• 取消同步点，直接移除消息
  如果你的业务场景不需要事务回滚（单条消息独立处理），可以修改MQGET的选项，设置MQGMO_NO_SYNCPOINT。这样在调用MQGET成功获取消息后，消息会直接从队列中移除，无需后续提交操作。
  RPGLE代码示例：

  dcl-ds gmo         like(MQGMO_t) qualified;
  
  // 初始化GMO结构，设置无同步点选项
  gmo = MQGMO_DEFAULT;
  gmo.Options = MQGMO_NO_SYNCPOINT + MQGMO_WAIT; // 按需添加等待等其他选项
  
  // 调用MQGET获取消息
  callp MQGET(hObj: md: gmo: buffer: bufLen: compCode: reason);
  

• 捕获终止信号，执行最终提交
  可以在RPGLE程序中注册信号处理函数，捕获手动终止时的系统信号（如SIGTERM），在退出前先提交所有未完成的事务。需要注意编译程序时开启SIGNAL(*ON)选项，确保信号能被捕获。
  大致实现思路：

  1. 注册信号处理函数，当收到终止信号时标记一个全局标志；
  2. 在消息循环中检查该标志，若触发则执行MQCMIT提交，再依次调用MQCLOSE和MQDISC退出程序。

• 确认队列与MQOpen的事务属性
  检查目标队列的事务属性：如果队列是事务性的（MQDEF中TRANSACTION设为YES），则必须通过MQCMIT提交才能永久移除消息；如果是非事务性队列，MQGET默认会直接移除消息，无需额外提交。

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