(c) Instytut Informatyki Politechniki
Poznańskiej
9
Użycie kursora
DECLARE
CURSOR
c_prac (zespol NUMBER DEFAULT 10) IS
SELECT
nazwisko, etat FROM pracownicy
WHERE
id_zesp = zespol ORDER BY placa_pod DESC;
v_nazwisko
PRACOWNICY.NAZWISKO%TYPE;
v_etat
PRACOWNICY.ETAT%TYPE;
BEGIN
OPEN
c_prac(30);
LOOP
FETCH
c_prac INTO v_nazwisko, v_etat;
EXIT
WHEN c_prac%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(v_nazwisko
|| ' , ' || v_etat);
END
LOOP;
CLOSE
c_prac;
END;