CICS - 处理条件

处理条件用于将程序的控制权转移到段落或过程标签。如果出现异常块中指定的条件名称，则将控制权交给特定段落，然后我们可以处理该条件。

HANDLE CONDITION 只能处理与 CICS 相关的条件，而不能处理普通的程序异常（如数据异常）。它可以处理仅与 CICS 相关的条件。它不能处理普通的程序异常（如数据异常）。Handle Condition 的语法如下 −

语法

EXEC CICS HANDLE CONDITION
   CONDITION(Label)
   CONDITION(Label)
   ERROR(LABEL)
END-EXEC.

示例

以下是处理条件的示例 −

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
PROCEDURE DIVISION.

EXEC CICS HANDLE CONDITION
   DUPKEY(X0000-DUPKEY-ERR-PARA)
   NOTFND(X000-NOT-FOUND-PARA)
   ERROR(X0000-GEN-ERR-PARA)
END-EXEC.
X0000-DUPKEY-ERR-PARA.

DISPLAY 'Duplicate Key Found'.
X0000-NOT-FOUND-PARA.

DISPLAY 'Record Not Found'.
X0000-GEN-ERR-PARA.

DISPLAY 'General Error'.

cics_error_handling.html