ORACLE分页查询存储过程

CREATE TABLE `a` (

`name` char(64) COLLATE utf8_bin NOT NULL DEFAULT '',
`id` tinyint(1) NOT NULL DEFAULT '0',
PRIMARY KEY (`id`)
) ;

create or replace package PAGINATING_A_Pack is

-- Author  : ADMINISTRATOR
-- Created : 2013/1/13 17:02:46
-- Purpose : 分页查询 表A 的数据

-- Public type declarations
TYPE CUR IS REF CURSOR;
call PAGINATING_A_Pack.PAGINATING_A_APP(1,10);
PROCEDURE PAGINATING_A_P(
P_CURSOR OUT PAGINATING_A_Pack.CUR,
startno IN INTEGER ,
getnum IN INTEGER );
procedure PAGINATING_A_APP
(startno IN INTEGER ,
getnum IN INTEGER);

end PAGINATING_A_Pack;

create or replace package body PAGINATING_A_Pack is

PROCEDURE PAGINATING_A_P(
P_CURSOR OUT PAGINATING_A_Pack.CUR,
startno IN INTEGER ,
getnum IN INTEGER ) IS
/***************************************************************
*NAME : [Name]
*PURPOSE : --分页查询 A表
赋值游标
************************************************************/
BEGIN
OPEN p_CURSOR FOR
select row_n.ID, row_n.name, row_n.rownum_ --name INTO a_name
FROM (SELECT row_.*, ROWNUM rownum_
FROM (select * from A) row_
WHERE ROWNUM <= startno + getnum) row_n
WHERE rownum_ >= startno;
END;

procedure PAGINATING_A_APP
(startno IN INTEGER ,
getnum IN INTEGER) IS
/***************************************************************
*NAME : [Name]
*PURPOSE : --分页查询 A表

分页查询************************************************************/
c PAGINATING_A_Pack.CUR;
type A_ROW is record(
id   A.id%type,
name A.name%type,
num  integer);
a_r A_ROW;
BEGIN
PAGINATING_A_P(c,startno,getnum);

LOOP
FETCH c INTO a_r;
EXIT WHEN c%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('=NAME='||a_r.name);
END LOOP;
CLOSE c;
END;
end PAGINATING_A_Pack;

call PAGINATING_A_Pack.PAGINATING_A_APP(1,10);