CICS - condição de manuseio

A condição de manuseio é usada para transferir o controle do programa para um parágrafo ou uma etiqueta de procedimento. Se o nome da condição especificado no bloco de exceção surgir, o para particular receberá o controle e então podemos lidar com essa condição.

HANDLE CONDITION pode manipular apenas condições relacionadas ao CICS, não o programa comum Abends como exceções de dados. Ele pode manipular condições relacionadas apenas ao CICS. Ele não pode lidar com o programa normal Abends como exceções de dados. A sintaxe de Handle Condition é a seguinte -

Sintaxe

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

Exemplo

A seguir está o exemplo da condição do identificador -

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'.