1.创建存储过程

　　create or replace package pk_1 as //创建包的声明
　　TYPE cur is ref cursor; //声明一个指针
　　procedure p1(cr out cur);
　　end;
　　/
　　create or replace package body pk_1 as //创建包体
　　procedure p1(cr out cur) is
　　begin
　　open cr for select STATUS,table_name from dba_tables;
　　end;
　　end;
　　/

　　2.调用(在sqlplus中):

　　set serveroutput on //设置允许进行输出操作
　　/
　　declare
　　cc pk_1.cur;
　　s varchar2(20);
　　t varchar2(30);
　　c11 number :=0; //变量c11一定要赋初值,不然将不能正常运算
　　begin
　　pk_1.p1(cc);
　　loop
　　fetch cc into s,t;
　　exit when cc%notfound;
　　c11 := c11 + 1;
　　dbms_output.put_line('status = ' || s || '; table_name = ' || t);
　　end loop;
　　close cc;
　　dbms_output.put_line(c11);
　　end;
　　/

　1.创建存储过程:create or replace package pk_1 as //创建包的声明 TYPE cur is ref cursor; //声明一个指针.
　　3.对于不是返回一个结果集的存储过程的调用

　　CREATE OR REPLACE PROCEDURE p1
　　(
　　parameter1 in number,
　　parameter2 out number
　　) is
　　value1 INTEGER :=0;
　　begin
　　select count(*) into value1 from dba_tables where table_name like '%t%';
　　parameter2 := value1;
　　end p1;
　　sqlplus 中运行procedure

　　第一种调用方式:

　　(1)set serveroutput on
　　declare
　　v_p_o_succeed varchar2;
　　begin
　　pr_jwry_info('a_p_i_date',v_p_o_succeed) ;
　　dbms_output.put_line(v_p_o_succeed);
　　end;

　　第二种调用方式:

　　(2) var cc varchar(20)
　　p1(1,:cc)
　　print cc;