本文将为您介绍一个
DB2
存储过程使用动态游标的例子，如果您对动态游标的使用感
兴趣的话，不妨一看，对您学习
DB2
的使用会有所帮助。
CREATEPROCEDUREdata_wtptest(INin_taskid_timestampvarchar(30),
OUTo_err_noint,
OUTo_err_msgvarchar(1024))
LANGUAGESQL
P1:BEGINATOMIC
--
声明开始
--
临时变量出错变量
DECLARESQLCODE
integerdefault0;
DECLARESQLStmt
varchar(1024)default'';
DECLAREr_code
integerdefault0;
DECLAREstate
varchar(1024)default'AAA';--
记录程序当前所作工作
DECLAREat_end
intDEFAULT0;
DECLAREt_destnetid
intdefault0;
DECLAREt_recvid
varchar(30)default'';
DECLARESP_Name
varchar(50)default'data_wtptest';
--
声明放游标的值
--
声明动态游标存储变量
DECLAREstmt1STATEMENT;
DECLAREc1CURSORFORstmt1;
--
声明出错处理
DECLAREEXITHANDLERFORSQLEXCEPTION
begin
setr_code=SQLCODE;
seto_err_no=1;
seto_err_msg='
处理
['||state||']
出错
,'||'
错误代码
SQLCODE:['||CHAR(r_code)||'].';
insertintofcc_sp_log(object,name,value)
values(SP_Name,in_taskid_timestamp,o_err_msg);
end;
DECLAREcontinueHANDLERfornotfound
begin
