包:(包规范、包体俩部分组成)
包规范-包声明:
create package sp_packageis
procedure update_sal(namevarchar2,newsal number);
functionannual_income(name varchar2) return number;
end;
/
实现包体:
create or replace packagebody sp_package is
procedure update_sal(namevarchar2,newsal number)
is
begin
update emp set sal=newsalwhere ename=name;
end;
functionannual_income(name varchar2)
return number isannual_salary number;
begin
select sal*12+nvl(comm,0)into annual_salary from emp where ename=name;
return annual_salary;
end;
end;
/