1，简单的包。
创建包规范：
create or replace package pack_test1 is
-- 定义过程1
procedure p_test1(p_1 in varchar2);
-- 定义函数1
function f_test1(p_1 in varchar2) return varchar2;
end pack_test1;
创建包体：
create or replace package body pack_test1 is
-- 包全局变量1
v_param1 varchar(20) := 'default'; -- 实现过程1
procedure p_test1(p_1 in varchar2) is
begin dbms_output.put_line('p_1的值为：'|| p_1);
dbms_output.put_line('全局变量的值为：'||v_param1);
-- 改变全局变量
v_param1 := p_1;
dbms_output.put_line('改变后的全局变量值为：'||v_param1); end; -- 实现函数1
function f_test1(p_1 in varchar2) return varchar2 is
v_rt varchar2(50);
begin
dbms_output.put_line('获取的全局变量值为：'||v_param1); v_rt := v_param1||'-'||p_1; dbms_output.put_line('返回值为：'||v_rt); return v_rt;
end f_test1; end pack_test1;
---------------------
调用包：
在一般的sql窗口可以使用以下方法：
-- 调用过程
call pack_test1.p_test1('参数1'); -- 调用函数
select pack_test1.f_test1('参数2') from dual;
在命令窗口可以使用：
exec pack_test1.p_test1('参数1');--执行此包 存在版本问题 看不到输出
2，包间调用
刚学pl/sql编程，写了两个package。pkg_temp_fn和pkg_temp_fn2。内容涉及pl/sql基本语法，游标，存储过程（in,out），函数（有返回值）。
- pkg_temp_fn内有一个function f_getdept(v_deptid number) return VARCHAR2和一个procedure p_getinfo(v_mapid NUMBER)
创建包规范
create or replace package pkg_temp_fn is
function f_getdept(v_deptid number) return VARCHAR2;
--reference pkg_temp_fn2
procedure p_getinfo(v_mapid NUMBER/*,v_pname VARCHAR2(20),v_deptno VARCHAR2(15)*/);
-- procedure p_main_process;
end pkg_temp_fn;
--3/24/2016
--var map_id number;
--exec pkg_temp_fn.p_getinfo(&map_id);调用方法
创建包体
create or replace package body pkg_temp_fn
is
function f_getdept(v_deptid number) return VARCHAR2
is
deptno varchar2(15);
begin
select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
return deptno;
end f_getdept; procedure p_getinfo(v_mapid NUMBER)
is
cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
pname VARCHAR2(20);
pdept number;
v_deptno VARCHAR2(15);
begin
open xing;
loop
fetch xing into pname,pdept;
exit when xing%notfound;
v_deptno:=f_getdept(pdept);--call function
dbms_output.put_line(pname||'''s dept is :'||v_deptno);
end loop;
close xing;
end p_getinfo;
end pkg_temp_fn;
- kg_temp_fn2内有一个function f_getdept(v_deptid number) return VARCHAR2、一个procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2),一个procedure p_main_process(v_mapid NUMBER)。
创建包规范
create or replace package pkg_temp_fn2 is
function f_getdept(v_deptid number) return VARCHAR2;
procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2);
procedure p_main_process(v_mapid NUMBER);
end pkg_temp_fn2;
--3/24/2016
--var map_id number;
--exec pkg_temp_fn2.p_main_process(&map_id);调用方法
创建包体
create or replace package body pkg_temp_fn2
is
function f_getdept(v_deptid number) return VARCHAR2
is
deptno varchar2(15);
begin
select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
return deptno;
end f_getdept; procedure p_getinfo(v_mapid in NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2)
is
cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
pdept number;
begin
open xing;
loop
fetch xing into v_pname,pdept;
exit when xing%notfound;
v_deptno:=f_getdept(pdept);--
--dbms_output.put_line(pname||'''s dept is :'||v_deptno);
end loop;
close xing;
end p_getinfo;
procedure p_main_process(v_mapid NUMBER)
is
v_pname VARCHAR2(20);
v_deptno varchar2(15);
begin
p_getinfo(v_mapid,v_pname,v_deptno);
dbms_output.put_line(v_pname||'''s dept is :'||v_deptno);
end p_main_process;
end pkg_temp_fn2;
ps:
定义变量或者参数的的时候，类型不要有括号，否则报错。