创建一个包，这个包包含一个存储过程，一个函数：

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 ;