La condición de identificador se usa para transferir el control del programa a un párrafo o una etiqueta de procedimiento. Si surge el nombre de la condición especificado en el bloque de excepción, se le dará el control al para en particular y luego podremos manejar esa condición.
HANDLE CONDITION puede manejar solo condiciones relacionadas con CICS, no el programa ordinario Abends como excepciones de datos. Puede manejar condiciones que están relacionadas solo con CICS. No puede manejar el programa ordinario Abends como excepciones de datos. La sintaxis de Handle Condition es la siguiente:
Sintaxis
EXEC CICS HANDLE CONDITION
CONDITION(Label)
CONDITION(Label)
ERROR(LABEL)
END-EXEC.
Ejemplo
A continuación se muestra el ejemplo de la condición de la manija:
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'.