create or replace package PAGEQUERY_PACK is  -- Author  : ADMINISTRATOR  -- Created : 2013/1/13 15:47:30  -- Purpose : FEN YE CHA XUN     -- Public type declarations  TYPE CUR IS REF CURSOR;   -- Public function and procedure declarations   PROCEDURE PAGINATING_all_objects_P(       P_CURSOR OUT  CUR,       startno IN INTEGER ,       getnum IN INTEGER ,       IN_owner in varchar2);          PROCEDURE PAGINATING_all_objects_PP   ( startno IN INTEGER ,       getnum IN INTEGER ,       IN_owner in varchar2); end PAGEQUERY_PACK;

create or replace package body PAGEQUERY_PACK is      PROCEDURE PAGINATING_all_objects_P(P_CURSOR OUT   CUR,                                     startno  IN INTEGER,                                     getnum   IN INTEGER,                                     IN_owner in varchar2) IS    /***************************************************************    *NAME : [Name]    *PURPOSE : --分页查询 all_objects表 指定方案的 table类型数据    *参数 startno 开始 NO     从1 开始    *参数 getnum 得到的数量   包括开始no              查询内容 OBJECT_ID  OBJECT_NAME        ************************************************************/  BEGIN    OPEN p_CURSOR FOR      select row_n.OBJECT_ID, row_n.OBJECT_NAME, row_n.rownum_        FROM (SELECT row_.*, ROWNUM rownum_                FROM (select object_id,object_name                        from all_objects                       where object_type = 'TABLE'                         and owner = upper(IN_owner)) row_               WHERE ROWNUM < startno + getnum) row_n       WHERE rownum_ >= startno;     END PAGINATING_all_objects_P;    PROCEDURE PAGINATING_all_objects_PP(startno  IN INTEGER,                                    getnum   IN INTEGER,                                    IN_owner in varchar2) as/*调用PAGINATING_all_objects_P的存储过程*/  v_cur PAGEQUERY_PACK.CUR;  type A_ROW is record(    id   ALL_OBJECTS.OBJECT_ID%type,    name ALL_OBJECTS.OBJECT_name%type,    num  number);  a_r A_ROW;begin  PAGEQUERY_PACK.PAGINATING_all_objects_P(v_cur, startno, getnum, IN_owner);  fetch v_cur    into a_r;  while v_cur%found loop    dbms_output.put_line('ALL_OBJECTS.OBJECT_ID'||'  :  '||a_r.id);     dbms_output.put_line('=======================================');    dbms_output.put_line(dbms_metadata.get_ddl(object_type => 'TABLE',                                               name        => a_r.name,                                               schema      => IN_owner));   dbms_output.put_line('=======================================');    fetch v_cur      into a_r;  end loop;end PAGINATING_all_objects_PP;begin  NULL;end PAGEQUERY_PACK;

call Pagequery_Pack.PAGINATING_all_objects_PP(1,10,'CICI');