CICS - Abend

La commande Abend est utilisée pour terminer la tâche intentionnellement. En utilisant la commande Abend, nous pouvons définir un code d'abend défini par l'utilisateur. Voici la syntaxe de la commande Abend -

Syntaxe

EXEC CICS ABEND
   ABCODE(name)
END-EXEC.

Exemple

L'exemple suivant montre comment utiliser la commande Abend dans un programme. Il s'arrêtera lorsque le programme atteindra ce paragraphe avec le code d'abandon défini par l'utilisateur. Dans l'exemple suivant, il s'arrêtera avec le code abend D100 -

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
PROCEDURE DIVISION.

EXEC CICS ABEND
   ABCODE(D100) 
END-EXEC.