ORACLE存储过程 练习系列六 关键字 分页查询某个方案下的建表语句

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;