如何恢复 COBOL 中 EXEC CICS 的默认条件处理?

How to restore default condition handling for EXEC CICS in COBOL?

执行 CICS 命令后,如果设置了条件处理程序,如何恢复默认处理程序?

           EXEC CICS HANDLE CONDITION
                     ERROR(X0000-GEN-ERR-PARA)
           END-EXEC.

           EXEC CICS READQ TS                                          
                ITEM(1)
                QUEUE(UNIQNAME)
                INTO(DATA)
                LENGTH(LDATA)                   
           END-EXEC.

我可以添加一个 IGNORE,但这不一样:

           EXEC CICS IGNORE CONDITION 
                     ERROR        
           END-EXEC.

根据 API-HANDLE CONDITION 的文档:

If you omit the label parameter, any HANDLE CONDITION command for the condition is deactivated, and the default action is taken if the condition occurs.

应该足够了

       EXEC CICS HANDLE CONDITION
                 ERROR
       END-EXEC.

恢复默认条件处理。