13 PL/SQL包

create or replace package my_pack is
procedure my_pro2(v_sal in number,v_name varchar2);
function my_fun(v_name varchar2) return number;
end;

create or replace package body my_pack is
procedure my_pro2(v_sal in number,v_name varchar2) is
begin
  update test set sal=v_sal where name=v_name;
end;
function my_fun(v_name varchar2)
return number is
v_annual_sal number;
begin
  select sal*13 into v_annual_sal from test where name=v_name;
  return v_annual_sal;
end;
end;

exec scott.my_pack.my_pro2(8800,'Allen');