DB2存储过程（游标+循环）2

create procedure SP_PASTRAN_TEST
(
in i_tjrq integer, --统计日期
out i_err_no integer --输出参数
)
–支持语言
language sql
/------------------------------------------------------------------
存储过程:XXX
功能描述:XXX
作者:XXX
日期:XXX
项目名称: XXX
版本: XXX
开发商：XXX
调用范例: call SP_PASTRAN_TEST(20210101,?)
-------------------------------------------------------------------/
begin
–临时变量,出错变量
declare sqlcode integer default 0; --错误代码
declare i_at_end integer default 0; --查询结果是否找到变量
declare i_code integer default 0; --错误代号
declare v_err_msg varchar(1024); --错误描述
–声明变量
declare v_proc_name varchar(50) default ‘SP_PASTRAN_TEST’; --程序名称
declare v_sql varchar(4000) default ‘’;–动态sql
…
declare cur_jkwj cursor with hold for qt_stmt; --动态游标
declare exit handler for sqlexception
begin
set i_code=sqlcode;
set i_err_no=1;<