Probá así:
Código SQL
[-]
create or replace
PROCEDURE BORRAREMPLEADO (ID EMPLEADOS.ID_EMPLEADO%TYPE)
AS
BEGIN
DELETE
FROM EMPLEADOS
WHERE ID_EMPLEADO=ID;
if (SQL%ROWCOUNT < 1) then
RAISE_APPLICATION_ERROR(-20001, 'Empleado no encontrado '||id);
END BORRAREMPLEADO;
Hasta luego.
pd. Por cierto, utilizá la
etiqueta sql siempre que publiques trozos de código SQL. Yo la he usado, y supongo que notarás la diferencia... ¿no?