DECLARE
  CURSOR CPrzedmiot(idPrzedmiot NUMBER, nazwaP VARCHAR2) IS SELECT *
                                                            FROM PRZEDMIOTY p
                                                            WHERE p.ID_PRZEDMIOT = idPrzedmiot AND p.NAZWA_P = nazwaP;
  vIdPrzedmiot NUMBER;
  vNazwaPrzedmiotu VARCHAR2(40);
  vData CPrzedmiot%ROWTYPE;

BEGIN
  vIdPrzedmiot := 10;
  vNazwaPrzedmiotu := 'HURTOWNIE DANYCH';
  OPEN CPrzedmiot(vIdPrzedmiot, vNazwaPrzedmiotu);

  FETCH CPrzedmiot INTO vData;
  IF CPrzedmiot%NOTFOUND THEN
    INSERT INTO PRZEDMIOTY (ID_PRZEDMIOT, NAZWA_P, OPIS) VALUES (vIdPrzedmiot, vNazwaPrzedmiotu, NULL);
  ELSE
    DBMS_OUTPUT.put_line('Podany przedmiot juz istnieje');
  END IF;
  CLOSE CPrzedmiot;
END;