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

Question

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

Answer 1

根据HANDLE CONDITION的API文档：

如果省略了label参数，则该条件的任何HANDLE CONDITION命令都会被停用，并且在条件发生时会采取默认操作。

应该足够做

       EXEC CICS HANDLE CONDITION
                 ERROR
       END-EXEC.

恢复默认条件处理。