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 
  for update;
 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;