-- als stored procedure mit Parameteruebergabe

create or replace procedure neugehalt(proz1 number, proz2 number)
as
   cursor c is select gehalt 
               from   angestellter
          for update of gehalt;

   v_gehalt angestellter.gehalt%type;

-- Ausführungsblock
begin
   -- Cursor öffnen
   open c;

   -- erste Zeile lesen
   fetch c into v_gehalt;

   -- alle Zeilen der Ergebnistabelle lesen
   while c%found loop
    if   v_gehalt > 10000
    then update angestellter set gehalt = gehalt * proz1
                where current of c;
    else update angestellter set gehalt = gehalt * proz2
                where current of c;
    end if;
    fetch c into v_gehalt;
   end loop;

end;
/