标题: 在SQL存储过程中声明游标错误 [打印本页] 作者: zhouhaiming 时间: 2003-02-27 13:18 标题: 在SQL存储过程中声明游标错误 程序代码如下：
create procedure append(in source varchar(100),
in target varchar(100),
in timevar date,
out error_code integer,
out error_label varchar(255))
language sql
begin
declare SQLCODE integer default 0;
declare stmt varchar(1024);
declare at_end int default 0;
declare col_name varchar(100);
declare all_col varchar(1024);
declare EXIT HANDLER FOR SQLEXCEPTION
set error_code = SQLCODE;
declare CONTINUE HANDLER FOR NOT FOUND
set at_end = 1;
set error_code = 0;
set stmt = 'delete from '||
target||
' where timevar="'||
char(last_day(current date), iso)||
'"';
set error_label = 'The position of the error raised is 0001.';
prepare ps from stmt;
set error_label = 'The position of the error raised is 0002.';
execute ps;
declare c1 cursor for
select name
from sysibm.syscolumns
where tbname = ucase(source)
order by colno;
open c1;
fetch c1 into col_name;
while at_end = 0 do
set all_col = all_col||col_name;
fetch c1 into col_name;
end while;
close c1;
set stmt = 'insert into '||
target||
' values '||
'select '||
all_col||
', current date from '||
source;
set error_label = 'The position of the error raised is 0005.';
prepare ps from stmt;
set error_label = 'The position of the error raised is 0006.';
execute ps;
DB2ADMIN.APPEND: 34: [IBM][CLI Driver][DB2/NT] SQL0104N An unexpected token "<cursor declaration>;" was found following "". Expected tokens may include: "<SQL statement>;". LINE NUMBER=34. SQLSTATE=42601
DB2ADMIN.APPEND - Build failed.
DB2ADMIN.APPEND - Changes rolled back.
请高手指点错在哪里，盼着您的回答！作者: Law 时间: 2003-02-27 14:28 标题: 在SQL存储过程中声明游标错误 declare c1 cursor for
select name
from sysibm.syscolumns
where tbname = ucase(source)
order by colno;