oracle 游标（学校）

这段时间实在是很忙，结婚、赶项目进度、被迫出书、教学。每件事都是不能得罪的。。。。
前几天帮教务处修正oracle数据库数据问题，把代码贴出来防止以后找不到了

declare 
CURSOR curTTT is select XN,XM,XQ,KCMC,XF,BJMC from CJB;
XN1 VARCHAR2(10);
XM1 VARCHAR2(20);
  XQ1 NUMBER(1);
  KCMC1 VARCHAR2(40);
  XF1 VARCHAR2(10);
  BJMC1 VARCHAR2(40);
begin
-----------------------------------------

 if curTTT%isopen = false then 
  open curTTT;
  end if;
  fetch curTTT into XN1,XM1,XQ1,KCMC1,XF1,BJMC1;
 --  Dbms_Output.put('1');
while curTTT%found 
loop
 if XF1='0' then       
update CJB 
set XF=(select * from (select nvl(XF,0) from CJB 
where BJMC=BJMC1 and KCMC=KCMC1 and XQ=XQ1
     and XN=XN1 and XF>'0' )
       where ROWNUM<=1)
where BJMC=BJMC1 and KCMC=KCMC1 and XQ=XQ1
     and XN=XN1 and XM=XM1; 
end if;

if curTTT%rowcount=0 then
exit;
end if;

fetch curTTT into XN1,XM1,XQ1,KCMC1,XF1,BJMC1;
end loop;

  commit;
  close curTTT;
-------------------------------------------- 
end;