快速学习Oracle-存储函数

create or replace function 函数名(Name in type, Name in type, ...) return 数据类型 is
 结果变量 数据类型;
begin
 
 return(结果变量);
end 函数名;

create or replace function empincome(eno in emp.empno%type) return
number is
 psal emp.sal%type;
 pcomm emp.comm%type;
begin
 select t.sal into psal from emp t where t.empno = eno;
 return psal * 12 + nvl(pcomm, 0);
end;

create or replace procedure empincomep(eno in emp.empno%type, 
income out number) is
 psal emp.sal%type;
 pcomm emp.comm%type;
begin
 select t.sal, t.comm into psal, pcomm from emp t where t.empno 
= eno;
 income := psal*12+nvl(pcomm,0);
end empincomep;

declare
 income number;
begin
 empincomep(7369, income);
 dbms_output.put_line(income);
end;