CREATE OR REPLACE FUNCTION hr.retorna_categoria (
p_cod_prod IN hr.produto_exercicio.cod%TYPE
) RETURN VARCHAR2 IS
v_categoria hr.produto_exercicio.categoria%TYPE;
BEGIN
SELECT
categoria
INTO v_categoria
FROM
hr.produto_exercicio
WHERE
cod = p_cod_prod;
RETURN ( v_categoria );
EXCEPTION
WHEN no_data_found THEN
raise_application_error(-20001, 'Categoria inexistente');
WHEN OTHERS THEN
raise_application_error(-20002, 'Erro Oracle '
|| sqlcode
|| ' - '
|| sqlerrm);
END;
