Procedura - przykład 1

(nazwisko_pracownika char,

nazwisko_szefa char,

etat char,

pensja number,

nazwa_zespolu char)

nr_szefa pracownicy.id_prac%TYPE;

nr_zespolu pracownicy.id_zesp%TYPE;

BEGIN

SELECT id_prac INTO nr_szefa FROM pracownicy

WHERE nazwisko=nazwisko_szefa;

SELECT id_zesp INTO nr_zespolu FROM zespoly

WHERE nazwa=nazwa_zespolu;

INSERT INTO pracownicy VALUES

(seq_pracownik.nextval, nazwisko_pracownika, etat, nr_szefa, sysdate, pensja,

null, nr_zespolu);

END nowy_pracownik;