如何恢复 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.
恢复默认条件处理。
执行 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.
恢复默认条件处理。