-- Created on 2007-8-5 by ujnjt
declare
psqlContent varchar2(1000);
pageIndex number;
pageCount number; --返回的分页数
pageSize number; --每一页的记录数
rowscount number; -- 返回的记录总数
return_cur JT_P_PAGE.type_cur;
curr_id pay_en_voucher.id%type;
curr_rn number;
begin
psqlContent := 'select rownum as rn , t.id from pay_en_voucher t';
pageIndex := 0;
pageSize := 20;
JT_P_PAGE.Pagination(pageIndex,
psqlContent,
pageSize,
pageCount,
rowscount,
return_cur);
if return_cur%isopen then
close return_cur;
end if;
for Counter in 0 .. pageCount - 1 loop
pageIndex := Counter;
JT_P_PAGE.Pagination(pageIndex, psqlContent, pageSize, pageCount, rowscount, return_cur);
if return_cur%isopen then
dbms_output.put_line('第' || (pageIndex + 1) || '页数据开始');
loop
fetch return_cur
into curr_rn, curr_id;
if (return_cur%notfound) then
exit;
end if;
dbms_output.put_line(curr_rn);
dbms_output.put_line(curr_id);
dbms_output.put_line('--------');
end loop;
dbms_output.put_line('第' || (pageIndex + 1) || '页数据结束');
close return_cur;
dbms_output.put_line('=========================================');
end if;
end loop;
end;
|