create or replace PROCEDURE excluindo_produto (
p_cod produto_exercicio.cod%TYPE
) IS
e_idrelacionado EXCEPTION;
PRAGMA exception_init ( e_idrelacionado, -2292 );
BEGIN
DELETE FROM produto_exercicio
WHERE
cod = p_cod;
COMMIT;
EXCEPTION
WHEN e_idrelacionado THEN
raise_application_error(-20010, 'Restrição de integridade violada - registro filho localizado.');
END;
