分页过程---要求:输入表名，每页记录数，当前页码，返回总记录数，总页数与结果集****球高手帮忙解决哈问题

create or replace procedure fenye(
tablename in varchar2, --emp_bak
pagesizes in number, --20
pagenow in number, --n
rowscount out number, -- 20*n
pagecount out number, --(conut()+20-1)/20 (总数量+单页数量-1)/单页数量 是整除
v_cur out pack_1.emp_cur )
is
v_sql varchar2(1000);
v_begin number(8):=(pagenow-1)*pagesizes+1;
v_end number(8):=pagenow*pagesizes;

begin
v_sql := 'select * from (select a.*,rownum rn from (select* from tablename) a where rownum <=v_end) where rn>=v_begin';
open v_cur for v_sql;

v_sql := 'select count(*) from tablename';
execute immediate v_sql into rowscount;
end;


declare
tablename varchar2 :=&t;
pagesizes number:=&num1;
pagenow number :=&num2;
rowscount number;
pagecount number;
v_cur pack_1.emp_cur;
v_emp emp%rowtype;
begin
fenye(tablename,pagesizes,pagenow);
open v_cur(v_begin);
loop
fetch v_cur into v_emp;
exit when v_cur%notfound;
dbms_output.put_line(v_emp.ename);
end loop;
close v_cur;
end;



实在想不到了，。帮忙看哈，讲讲理由，谢谢了~~