CICS - 处理状况

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

HANDLE CONDITION 只能处理与 CICS 相关的条件，而不能处理诸如数据异常之类的普通程序 Abend。它只能处理与 CICS 相关的条件。它无法处理诸如数据异常之类的普通程序 Abend。处理条件的语法如下所述 −

语法

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'.