Oracle包内存储过程实现分页查询

create or replace package mySplitPage
is
    type c_type is ref cursor;
    procedure splitPage(p_page int,p_pageSize int,p_sql varchar2,p_pageCount out int,c1 out c_type);
      end;

create or replace package body mySplitPage  is
  procedure splitPage(p_page int,p_pageSize int,p_sql varchar2,p_pageCount out int,c1 out c_type)
      is
                v_sql varchar2(2000);
                i int;
      begin
                v_sql:='select count(*) from ('||p_sql||')';
                execute immediate v_sql into i;
                p_pageCount:=ceil(i/(p_pageSize+0.0));
if(p_pageCount<1) then
                             raise_application_error(-20001,'没有符合条件的信息！');
                end if;
                if(p_page<1) then
                             raise_application_error(-20001,'页数过小！');
                end if;
                if(p_page>p_pageCount) then
                             raise_application_error(-20001,'页数过大！');
                end if;
                v_sql:='select * from ('||p_sql||') where rowNum<='||p_page*p_pageSize;
                v_sql:=v_sql||' minus ';
                v_sql:=v_sql||'select * from ('||p_sql||') where rowNum<='||(p_page-1)*p_pageSize;
                dbms_output.put_line(v_sql);
                open c1 for v_sql;
      end;