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

【问题标题】：How to restore default condition handling for EXEC CICS in COBOL?如何在 COBOL 中恢复 EXEC CICS 的默认条件处理？
【发布时间】：2020-04-12 23:33:06
【问题描述】：

在执行 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.

【问题讨论】：

标签： cobol cics

【解决方案1】：

根据HANDLE CONDITION 的 API 文档：

如果省略 label 参数，则该条件的任何 HANDLE CONDITION 命令都将被停用，如果条件发生则执行默认操作。

应该够了

       EXEC CICS HANDLE CONDITION
                 ERROR
       END-EXEC.

恢复默认条件处理。

【讨论】：