ibm-midrange - 如何调用 ENDCMTCTL 进行未决更改？

Question

我的 iSeries ILE 程序因未提交的更改而崩溃。现在我想用 ENDCMTCTL 结束 promise 控制(再次启动程序，程序自己启动 promise 控制)，但失败并显示消息:

CPF8355 - ENDCMTCTL not allowed. Pending changes active

有没有办法以正确的方式回滚/提交更改和结束提交控制？我更有经验的同事建议只退出并开始新 session 。

编辑

我已经尝试了 WRKCMTDFN 及其中的所有操作，但均未成功。强制回滚和强制提交失败并显示消息:

CPD83ED -Commitment definition not eligible for forced rollback ... 
... 2 -- The logical unit of work, for this commitment definition, is not in
an undecided state.

Answer 1

消息ID大概是CPF8355，二级文字有助于了解情况:

 Cause . . . . . :   An attempt was made to end commitment control for         
   commitment definition &1. However, there are one or more active resources   
   under commitment control for the commitment definition. The resources could 
   be one of the following:                                                    
     -- Local files                                                            
     -- Remote files                                                           
     -- API commitment resources                                               
     -- Remote SQL database                                                    

使用 WRKJOB OPTION(*CMTCTL) 查看哪些资源仍处于打开状态并处于 promise 控制之下。如果有打开的文件，程序应该在尝试 ENDCMTCTL 之前关闭它们。如果在这种情况下，由于性能原因，RPG 程序会重复调用而使文件保持打开状态，请使用特殊参数最后一次调用它，这将告诉它关闭文件。或者，如果它是 ILE 程序，请考虑 RCLACTGRP。