CICS - Manejar Abend

Si un programa termina anormalmente debido a algunas razones, como un error de entrada-salida, entonces puede manejarse usando el comando Handle Abend CICS. A continuación se muestra la sintaxis del comando Handle Abend:

Sintaxis

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

El nombre del programa o el nombre de la etiqueta se utilizan para transferir el control al programa o párrafo si se produce una terminación anormal. CANCELAR se utiliza para cancelar CONDICIONES DE MANEJO anteriores. RESET se utiliza para reactivar el HANDLE ABEND cancelado anteriormente.

Ejemplo

A continuación se muestra el ejemplo de 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'.

↰ Previous page