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 powerlevel = (i*22000)
    where id = i ;
  end if;
 i := i +1 ;
 end loop;
end;