创建一个包,这个包包含一个存储过程,一个函数:
create or replace package p_pkg2
IS
/*
* 申明一个存储过程
*/
procedure p_p1(pi_a in number, pi_b in number, po_c out number, po_msg out varchar);
/*
* 申明一个函数
*/
function f_f1(pi_a in number, pi_b in number)
return number;
end p_pkg2;
创建包体:
create or replace package body p_pkg2
IS
/*
* 定义一个存储过程
*/
procedure p_p1(pi_a in number, pi_b in number, po_c out number, po_msg out varchar)
AS
-- 定义变量
v_test_row test1 % rowtype;
BEGIN
po_c :=pi_a+pi_b;
begin
select t.* into v_test_row
from test1 t
where t.a = pi_a;
exception
when too_many_rows THEN
v_test_row=null;
po_msg :='查询到多行';
when others THEN
v_test_row=null;
po_msg :='未知错误';
end;
end;
/*
* 定义一个函数
*/
function f_f1(pi_a in number, pi_b in number)
return number
AS
-- 定义变量
v_c number;
BEGIN
v_c := pi_a+pi_b;
-- 返回值
return v_c;
end;
end p_pkg2;
调用包中的过程:
DECLARE
v1 VARCHAR(1000);
v_msg varchar(1000);
BEGIN
p_pkg2.p_p1(pi_a=>1,pi_b=>2,po_c=>v1,po_msg=>v_msg);
raise notice 'v1=%,%,%', v1,v_msg,sysdate;
end ;