存储过程有有关问题，求指教

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

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);