Procedura - przykład 2

(identyfikator in pracownicy.id_prac%TYPE)

nie_ma_pracownika EXCEPTION;

BEGIN

DELETE FROM pracownicy

WHERE id_prac=identyfikator;

IF SQL%NOTFOUND THEN

RAISE nie_ma_pracownika;

END IF;

EXCEPTION

WHEN nie_ma_pracownika THEN

raise_application_error(-20001,

'Nie istnieje pracownik o podanym id');

END usun_pracownika;