CICS - Handle Abend

Se um programa termina de forma anormal devido a alguns motivos como erro de entrada e saída, ele pode ser manipulado usando o comando Handle Abend CICS. A seguir está a sintaxe do comando Handle Abend -

Sintaxe

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

O nome do programa ou nome do rótulo é usado para transferir o controle para o programa ou parágrafo se ocorrer abend. CANCELAR é usado para cancelar as CONDIÇÕES DE MANIPULAÇÃO anteriores. RESET é usado para reativar o HANDLE ABEND cancelado anteriormente.

Exemplo

A seguir está o exemplo 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'.