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;

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值