CICS - 處理異常中止

如果程式因輸入/輸出錯誤等原因而異常中止，可以使用 Handle Abend CICS 命令對其進行處理。以下是 Handle Abend 命令的語法：-

語法

EXEC CICS HANDLE ABEND
   PROGRAM(name) 
   LABEL(Label)   
   CANCEL         
   RESET
END-EXEC

如果發生異常中止，則程式名稱或標號名稱用於將控制權轉移到程式或段落。CANCEL 用於取消之前的 HANDLE CONDITIONS。RESET 用於重新啟用之前取消的 HANDLE ABEND。

示例

以下是 Handle Abend 的示例：-

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

EXEC CICS HANDLE ABEND
    LABEL (X0000-HANDLE-ABEND-PARA)
END-EXEC.

X0000-HANDLE-ABEND-PARA.
DISPLAY 'Program Abended'.