Unnamed

create or replace procedure insert_dbz_two
is
 cursor cur_dbz is select nvl(id,0) id,name,nvl(powerlevel,0) power,planet from dragonballz;
 i              pls_integer ;
begin
 i:= 1 ;
 for cur_rec in cur_dbz loop
  if cur_rec.id = 0 then
   update dragonballz 
   set id = i powerlevel = i*22000
   where current of cur_dbz ;      
  end if; 
 i := i + 1 ;
 end loop;
end;