示例13 函数创建和调用

/*============================================================

                       示例 函数

  ============================================================*/

create or replace function get_sal(eno number) return number

is

v_sal emp.sal%type;

begin

     select sal into v_sal from emp where empno=eno;

     return v_sal;

exception

         when no_data_found then

              raise_application_error(-20012,'该雇员不存在');

end;

--调用查询薪水函数

declare

    v_sal number;

    emp_20012 EXCEPTION;

    PRAGMA EXCEPTION_INIT(emp_20012, -20012);  

begin

    v_sal:=get_sal(7780);

    dbms_output.put_line(v_sal);

exception

    when emp_20012 then

       v_sal:=0; 

       dbms_output.put_line('该雇员不存在');

end;

/*============================================================

                       示例 函数

  ============================================================*/

create or replace function get_sal(eno number) return number

is

v_sal emp.sal%type;

begin

     select sal into v_sal from emp where empno=eno;

     return v_sal;

exception

         when no_data_found then

              raise_application_error(-20012,'该雇员不存在');

end;

--调用查询薪水函数

declare

    v_sal number;

    emp_20012 EXCEPTION;

    PRAGMA EXCEPTION_INIT(emp_20012, -20012);  

begin

    v_sal:=get_sal(7780);

    dbms_output.put_line(v_sal);

exception

    when emp_20012 then

       v_sal:=0; 

       dbms_output.put_line('该雇员不存在');

end;