存储过程有问题，求指教
贴出代码，希望各位牛人帮忙看一下，哪里有问题。另，这个东西怎么调试，可以单步执行或是断点调试啥的么

create procedure procedure_test is  

    

  declare @rcode varchar2(8);

  declare @rname varchar2(60);

  declare @html blob;

  declare @duty varchar2(240);



begin



  declare cur1 cursor for

  select * from table_test1;

 

  open cur1;

  fetch next from cur1 into @rcode, @rname, @html, @duty;



  WHILE @@FETCH_STATUS = 0

    begin

      if(select count(*) from table_test2 where rcode = @rcode)

        update twriskdutyinfo set rname = cast((select rname from table_test2 a where a.rcode = @rcode) as varchar2(60)) where rcode = @rcode;

              

      fetch next from cur2 into @rcode, @ranme, @html, @duty;

      end

       

    close cur1;

    deallocate cur1;

       

  end

说明，table_test1表中只有rcode varchar2(8),rname varchar2(60),html blob,duty varchar2(240)这四个字段；table_test2表中有rcode varchar2(8), rname varchar2(120)等其他字段。 
------解决方案--------------------

create or replace procedure procedure_test is 

  v_rname varchar2(60);

begin

  for i in (select rcode from table_test1) loop

    select rname into v_rname from table_test2 a where a.rcode = i.rcode and rownum <=1;

    update twriskdutyinfo set rname = NVL(v_rname,rname) where rcode = i.rcode;

  end loop;

  

  commit;

end;

------解决方案--------------------
你的目的是用test2的rname更新test1的rname对吗？

那么不需要存储过程直接
update test1 t set t.rname = (select rname from test2 where rcode = t.rcode)
where r.rame is not null and exists (select rname from test2 where rcode = t.rcode);