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