Informix滚动游标
function chek_jxhs()define v_bdbxqq like fl_abc:fl_tbd.bdbxqq #保单起始日期
define v_bdh like fl_dwjzjs.bdh #保单号
define v_jsrq like fl_dwjzjs.jsrq #结息日期
define a_bdh char(17) #第一行
define a_jsrq date #第一行
define b_bdh char(17) #第二行
define b_jsrq date #第二行
define v_ts int #减出的月差
define v_yf int #月份
define i int
define v_rq char(17)
define v_rqq char(17)
define v_rqqq char(17)
declarecur_jxhs cursor for
select a.bdh,a.jsrq
from fl_dwjzjs a,fl_tbd b
where a.bdh='720'
and a.bdh=b.bdh
and (a.dwlxlj4-a.dwlxlj)<>0
and a.jsrq>=b.bdbxqq
and a.jsrq<=today
and b.bdzt='1'
group by a.bdh,a.jsrq
order by a.bdh,a.jsrq;
open cur_jxhs
let i=1
FETCH FIRST cur_jxhs INTO a_bdh,a_jsrq
whilea_bdh is not null and a_jsrq is not null
FETCH NEXT cur_jxhs INTO b_bdh,b_jsrq
ifa_bdh==b_bdh and year(a_jsrq)==year(b_jsrq) and month(b_jsrq)-month(a_jsrq)<>0 then
let v_ts = month(b_jsrq)-month(a_jsrq)
whilei<= v_ts
let v_yf = month(b_jsrq)-1
let v_rq =year(b_jsrq)
let v_rqq = v_yf
let v_rqqq=v_rqCLIPPED, v_rqq
insert into fl_abc:err_zl
values('720',b_bdh,'','fl_dwjzjs','dwlxlj4','2','每月结息错误','在单位账户计算表中fl_dwjzjs没有结息的月份',v_rqqq,today);
exit while
end while
end if
let a_bdh=b_bdh
let a_jsrq=b_jsrq
exit while
end while
close cur_jxhs
FREE cur_jxhs
end function
SQL statement error number -482.
Invalid operation on a non-SCROLL cursor.让我创建一个滚动游标，FETCH FIRST cur_jxhs INTO a_bdh,a_jsrq 在这里就运行就会报错
页:
[1]