clear;
--创建函数:
create or replace function get_sal(name in varchar2)
return number
as
v_sal emp.sal%type;
begin
select sal into v_sal from emp where upper(ename)= upper(name);
return v_sal;
Exception
when no_data_found then
raise_application_error(-20000,'该雇员不存在.');
end;
/
var sal number;
exec :sal := get_sal('scott');
--print sal;
sal
---------
3000