CICS: condizione della maniglia

La condizione handle viene utilizzata per trasferire il controllo del programma a un paragrafo o un'etichetta di procedura. Se si verifica il nome della condizione specificato nel blocco delle eccezioni, verrà dato il controllo al particolare para e quindi possiamo gestire quella condizione.

HANDLE CONDITION può gestire solo le condizioni relative a CICS, non il programma ordinario Abends come eccezioni di dati. Può gestire condizioni correlate solo a CICS. Non è in grado di gestire il normale programma Abends come eccezioni di dati. La sintassi di Handle Condition è la seguente:

Sintassi

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

Esempio

Di seguito è riportato l'esempio della condizione della maniglia:

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