CICS - Handle Abend

Se un programma termina in modo anomalo a causa di alcuni motivi come un errore di input-output, può essere gestito utilizzando il comando Handle Abend CICS. Di seguito è riportata la sintassi del comando Gestisci fine anomala:

Sintassi

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

Il nome del programma o il nome dell'etichetta viene utilizzato per trasferire il controllo al programma o al paragrafo se si verifica una fine anomala. ANNULLA viene utilizzato per annullare le precedenti CONDIZIONI DI MANIGLIA. RESET viene utilizzato per riattivare la MANIGLIA ABEND precedentemente annullata.

Esempio

Di seguito è riportato l'esempio di 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'.