-- als stored procedure ohne explizites declare

create or replace procedure neugehalt
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 * 1.03
                where current of c;
    else update angestellter set gehalt = gehalt * 1.02
                where current of c;
    end if;
    fetch c into v_gehalt;
   end loop;

end;
/