A RS - of the AG Database-Systems

Beispiel 2
Anwendungsprogrammierung
� Berechne die Gehaltserhöhung der Angestellten in Abhängigkeit ihres bisherigen Gehalts.
declare
begin
cursor angCursor is select Lohn from Personal for update of Lohn;
angNr integer;
angGehalt Personal.Gehalt%type;
open angCursor;
fetch angCursor into angGehalt;
while angCursor%found
if angGehalt > 60000
update Personal set Lohn = Lohn*1.1 where current of angCursor;
elsif angGehalt > 50000
update Personal set Lohn = Lohn*1.15 where current of angCursor;
else
update Personal set Lohn = Lohn*1.2 where current of angCursor;
Seite 291