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;
页:
[1]