Informix滚动游标

jingxp521

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)


declare  cur_jxhs cursor for

select a.bdh,a.jsrq
from fl_dwjzjs a,fl_tbd b
where a.bdh[8,10]='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]='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
while  a_bdh is not null and a_jsrq is not null
                   FETCH NEXT cur_jxhs INTO b_bdh,b_jsrq
                if  a_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)
                             while  i<= v_ts
                             let v_yf = month(b_jsrq)-1
                             
                             let v_rq =year(b_jsrq)
                             let v_rqq = v_yf
                             let v_rqqq=v_rq  CLIPPED, 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 在这里就运行就会报错