CICS - Gérer Abend

Si un programme s'arrête pour des raisons telles qu'une erreur d'entrée-sortie, il peut être géré à l'aide de la commande Handle Abend CICS. Voici la syntaxe de la commande Handle Abend -

Syntaxe

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

Le nom du programme ou le nom de l'étiquette est utilisé pour transférer le contrôle vers le programme ou le paragraphe en cas de fin anormale. ANNULER est utilisé pour annuler les CONDITIONS DE POIGNÉE précédentes. RESET est utilisé pour réactiver le HANDLE ABEND précédemment annulé.

Exemple

Voici l'exemple 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'.