KFK2666.pdf

9-5 -275-
Der Fehlerbehandlung dient die Variable UBERRDR (BIN FIXED(15)­
Variable), in der ein Fehlercode angeliefert wird, der dem negativen
Wert der DABAL-Fehlermeldungsnummer entspricht. Bei Auftreten ei­
nes Fehlers wird die FINISH-Condition gesetzt. Ein DABAL-Programm
enthält zum Standard-Fehlerabbruch den ON-Block
ON FINISH BEGIN,
IF DBERROR, =0 THEN STOP J
END,
Wird bei den Operationen STORE oder RETRIEVE das Poolende erreicht,
so wird die ENDFILE-Condition für den Datenbankfile gesetzt.