Function as Attribute in SQL raising error

Question

I have a problem
I have a stored procedure 'test_p' and a function 'test_sub'. The Stored Procedure 'test_p' calls function 'test_sub' from a SQL. What I'd like to have is the error from the function to be raised to the 'parent' stored procedure. What happens is, the error occurs in the function. The SQL will therefore not be executed, but code in the stored procedure after the sql will still be executed. It seems that errors from a function called in a sql won't have any impacts to the errorhandling in the stored procedure. Besides that the value of the variable v_errorcode in the stored procedure after the call to the function is still 0 event tough i fill the variable in the exception case in the function.
Anybody has an idea how to raise the error from the underlying function to the stored procedure and whats wrong why the value of the variable v_errorcode in the stored procedure is still 0 after the function call ?
Appreciated urs
create or replace PACKAGE pkg_test IS
v_errorcode NUMBER;
v_errormsg VARCHAR2(200);
--cursor
TYPE tc_ref_cursor is REF CURSOR;
--general types
SUBTYPE t_nav_type is VARCHAR2(1);
FUNCTION test_sub(
p_c_test IN VARCHAR2) return NUMBER;
PROCEDURE test_P(
p_nav_type IN t_nav_type,
p_ref_cur IN OUT tc_ref_cursor
end pkg_test;
show errors;
create or replace PACKAGE BODY pkg_test IS
PROCEDURE test_P(
p_nav_type IN t_nav_type,
p_ref_cur IN OUT tc_ref_cursor)
is
x number;
e_nomultyccyfound EXCEPTION;
begin
     DBMS_OUTPUT.PUT_LINE('Errorcode before initialize : ' || v_errorcode);
     v_errorcode := 0;
open p_ref_cur for
select test_sub('E') as tee from dual;
DBMS_OUTPUT.PUT_LINE('This Output in case of errorraising of test_sub sould not be shown');
DBMS_OUTPUT.PUT_LINE('Errorcode raised from function test_sub : ' || v_errorcode);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Error Package');
RAISE;
end test_P;
function test_sub(
p_c_test IN VARCHAR2
) return NUMBER
as
retval NUMBER;
e_nomultyccyfound EXCEPTION;
begin
retval := 0;
if p_c_test = 'E' then
     raise e_nomultyccyfound;
end if;
RETURN retval;
exception
when e_nomultyccyfound then
     v_errorcode := -20200;
     v_errormsg := 'Error in Function';
RAISE_APPLICATION_ERROR(-20200,'Error in Function');
when OTHERS then
retval := 0;
return retval;
end test_sub;
end pkg_test;
show errors;

Answer 1

Hi,
Call your Function independently.In your code FUNCTION
is not getting executed , so you are not seeing the
error getting raised.
In your code change
open p_ref_cur for select test_sub('E') as tee from dual;
to
x := test_sub('E');
Now call your procedure and you will find the correct results which you are expecting.
Regards,
Arun M