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