CREATEORREPLACEPROCEDURE p_page (
   p_sqlcount    INVARCHAR2,                           -- 记录数sql语句
   p_sql         INVARCHAR2,                           -- 结果集sql语句
   p_startpage   ININT,                                      --起始页号
   p_pagenum     ININT,                                    --每页记录数
   r_count       OUT      INT,                                      --总记录数
   r_cursor      OUT      sys_refcursor                              -- 结果集
)

IS
   v_start   INT;
   v_end     INT;
   v_sql     VARCHAR2 (2000);
BEGIN
   v_start := (p_startpage -1) * p_pagenum +1;
   v_end := v_start + p_pagenum -1;

EXECUTE IMMEDIATE p_sqlcount
INTO r_count;

   v_sql :=
'SELECT * '
' FROM (select t1.*, ROWNUM r '
' FROM ('
 p_sql
' ) t1 where rownum <='
 TO_CHAR (v_end)
') t2 where r >='
 TO_CHAR (v_start);

OPEN r_cursor FOR v_sql;
EXCEPTION
WHEN OTHERS
THEN
      RAISE;
END p_page;
/

--转自