DB2中存储过程分页程序

CREATE PROCEDURE DB2ADMIN.P_TEMP_YEARREPORT_QUERY
 (OUT "ERRCODE" INTEGER,
  OUT "ERRMSG" VARCHAR(50),
  IN "V_USERNO" VARCHAR(20),
  IN "V_KDBUREAID" VARCHAR(100),
  IN "V_PAGE" INTEGER,
  IN "V_PAGESIZE" INTEGER,
  OUT "O_TOTALROW" INTEGER,
  OUT "O_TOTALPAGE" INTEGER,
  OUT "O_HASNEXT" INTEGER,
  OUT "O_HASPREV" INTEGER
 )
  SPECIFIC DB2ADMIN.SQL070601162123746
  DYNAMIC RESULT SETS 1
  LANGUAGE SQL
  NOT DETERMINISTIC
  CALLED ON NULL INPUT
  EXTERNAL ACTION
  OLD SAVEPOINT LEVEL
  MODIFIES SQL DATA
  INHERIT SPECIAL REGISTERS
  BEGIN

--声明
declare pBegin integer;
declare pEnd integer;
declare ql varchar(500);
declare ql_count varchar(500);
declare result CURSOR WITH RETURN TO CALLER FOR RS;

--获取总记录数
set ql_count = 'SELECT count(*)  FROM DB2ADMIN.T_TEMP_YEARREPORT T1;
prepare rs from ql_count;
open result;
fetch result into o_totalrow;
close result;

--每页显示数量，默认1000000；
if(v_pagesize = 0) then
   set v_pagesize = 1000000;
end if;

--计算总页数
set o_totalpage = (o_totalrow-1)/v_pagesize + 1;

--处理当前页
if(v_page<1) then
  set v_page = 1;
else
  if(v_page>o_totalpage) then
     set v_page = o_totalpage;
  end if;
end if;

--开始和结束行
set pBegin = (v_page-1) * v_pagesize + 1;
if(v_page = o_totalpage) then
  set pEnd = o_totalrow ;
else
  set pEnd = v_pagesize * v_page;
end if;

--是否有下页
set o_hasnext = 0;
if(v_page<o_totalpage) then
  set o_hasnext = 1;
end if;

--是否有上页
set o_hasprev = 0;
if(v_page>1) then
  set o_hasnext = 1;
end if;

set ql = 'SELECT * FROM (SELECT *  FROM DB2ADMIN.T_TEMP_YEARREPORT T1 Where T1.kdbureaid = v_kdbureaid) as t where rownum  between '
          || rtrim(char(pBegin)) || ' and ' || rtrim(char(pEnd));
prepare rs from ql;
open result;

set errcode = 1;
set errmsg = '成功';

END;