-- 建立包头
create package mypkg is
procedure set_ctx(p_name in varchar2, p_value in integer);
--不需要初始化
--procedure init;
end;
/

create or replace package body mypkg is
procedure set_ctx(p_name in varchar2, p_value in integer) as
begin
--‘myctx‘ 是全局上下文名称
--与建立上下文中的myctx一致
    dbms_session.set_context(‘myctx‘, p_name, p_value, NULL, NULL);
end;
begin
  null;
end;
/

call mypkg.set_ctx(‘var1‘, 1234);
call mypkg.set_ctx(‘var2‘, 2234);

select sys_context( ‘myctx‘, ‘var1‘ ) var1,
       sys_context( ‘myctx‘, ‘var2‘ ) var2
from dual;

create package fj_package is
procedure update_sal(name varchar2,newsal number);
function annual_income(name varchar2) return number;
end;
/

create or replace package BODY fj_package is 
procedure update_sal(name varchar2, newsal number) is 
begin 
update tb_Employee set sal = newsal where ename = name; 
end; 
function annual_income(name varchar2) return number is 
annual_salary number; 
begin 
select sal * 12 + nvl(comm, 0) into annual_salary from tb_Employee where ename = name; 
return annual_salary; 
end; 
end; 
/

call fj_package.update_sal(‘SCOTT‘, 1400);--调用