oracle对象之存储函数

 1 create or replace function empincome(eno in emp.empno%type) return number is
 2  
 3   psal  emp.sal%type;
 4  
 5   pcomm emp.comm%type;
 6  
 7 begin
 8  
 9   select t.sal into psal from emp t where t.empno = eno;
10  
11   return psal * 12 + nvl(pcomm, 0);
12  
13 end;

 1  
 2 create or replace procedure empincomep(eno in emp.empno%type, income out number) is
 3  
 4   psal emp.sal%type;
 5  
 6   pcomm emp.comm%type;
 7  
 8 begin
 9  
10   select t.sal, t.comm into psal, pcomm from emp t where t.empno = eno;
11  
12   income := psal*12+nvl(pcomm,0);
13  
14 end empincomep;

 1  
 2 declare
 3  
 4   income number;
 5  
 6 begin
 7  
 8   empincomep(7369, income);
 9  
10   dbms_output.put_line(income);
11  
12 end;