(c) Instytut Informatyki Politechniki
Poznańskiej
3
Przykładowy program w
PL/SQL
DECLARE
v_magazyn NUMBER(5);
BEGIN
SELECT liczba_sztuk INTO v_magazyn
FROM zapasy
WHERE produkt = ’MLEKO UHT’
FOR UPDATE OF liczba_sztuk; --odczytujemy
liczbę w magazynie
IF (v_magazyn > 0) THEN –-sprawdzamy
ilość w magazynie
UPDATE zapasy SET liczba_sztuk =
liczba_sztuk - 1
WHERE produkt = ’MLEKO UHT’;
INSERT INTO historia_zakupow
VALUES (’Kupiono mleko UHT’,
SYSDATE);
ELSE
INSERT INTO historia_zakupow
VALUES (’Brak mleka UHT w
magazynie’, SYSDATE);
END IF;
COMMIT;
END;