如何解决 cursor is not open
请大虾赐教,我的脚本时这样书写的。我的pb是6.0版本,是不是缺少了什么dll
double bb=0,cc=0,dd=0,ee=0
double sbb=0,scc=0,sdd=0,see=0
declare ccc cursor for select //user_check_count a ,
count(user_check_count) b ,
user_check_count *count(user_check_count) c ,
2 * count(user_check_count) d ,
(user_check_count + 2 )*count(user_check_count ) e
from xawb_gf
where user_check_count <= 200
and out_date >= :_sdate
and out_date <= :_ldate
group by user_check_count
;
open ccc;
fetch ccc into :bb,:cc,:dd,:ee;
do while sqlca.sqlcode =0
sbb=sbb+bb
scc=scc+cc
sdd=sdd+dd
see=see+ee
fetch ccc into :bb,:cc,:dd,:ee;
temp_sqlcode= sqlca.sqlcode
loop
close ccc;