CICS - Condition de poignée

La condition de poignée est utilisée pour transférer le contrôle du programme vers un paragraphe ou une étiquette de procédure. Si le nom de la condition spécifié dans le bloc d'exception survient, le para particulier recevra le contrôle et nous pourrons alors gérer cette condition.

HANDLE CONDITION ne peut gérer que les conditions liées à CICS, pas le programme ordinaire Abends comme des exceptions de données. Il peut gérer des conditions liées uniquement à CICS. Il ne peut pas gérer le programme ordinaire Abends comme des exceptions de données. La syntaxe de la condition de poignée est la suivante -

Syntaxe

EXEC CICS HANDLE CONDITION
   CONDITION(Label)
   CONDITION(Label)
   ERROR(LABEL)
END-EXEC.

Exemple

Voici l'exemple de la condition de poignée -

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

EXEC CICS HANDLE CONDITION
   DUPKEY(X0000-DUPKEY-ERR-PARA)
   NOTFND(X000-NOT-FOUND-PARA)
   ERROR(X0000-GEN-ERR-PARA)
END-EXEC.
X0000-DUPKEY-ERR-PARA.

DISPLAY 'Duplicate Key Found'.
X0000-NOT-FOUND-PARA.

DISPLAY 'Record Not Found'.
X0000-GEN-ERR-PARA.

DISPLAY 'General Error'.