zerfz

CREATE OR REPLACE PROCEDURE P4_4_VERWIJDER_MEDEWERKER(
MED_ID IN S_EMP.ID%TYPE)
AS
  E_CHILDREN_FOUND EXCEPTION;
  PRAGMA EXCEPTION_INIT (E_CHILDREN_FOUND, - 2292);
BEGIN
  DELETE FROM S_EMP
  WHERE ID = MED_ID;
 
EXCEPTION
  WHEN E_CHILDREN_FOUND THEN 
  DBMS_OUTPUT.PUT_LINE ('Employee has children!');
  WHEN OTHERS THEN
  RAISE_APPLICATION_ERROR( -20000, 'Onbekende fout opgetreden');
END P4_4_VERWIJDER_MEDEWERKER;