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

cics_error_handling.html