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