SET SERVEROUTPUT ON
BEGIN
DBMS_OUTPUT.ENABLE;
DBMS_OUTPUT.PUT_LINE('PL/SQL');
END;
/

CREATE OR REPLACE PROCEDURE znajdz_spektakl(Naz Varchar2)
AS

CURSOR spektaklk IS
  SELECT TYTUL, POCZATEK_GRANIA, ID_REZYSERA
  FROM spektakl
  WHERE TYTUL = Naz;

tmp spektakl%ROWTYPE;

BEGIN
  OPEN spektaklk;
  DBMS_OUTPUT.PUT_LINE('Spekakl pod tytulem"' || Naz ||'" jest dostępny: ');
  LOOP
    FETCH spektaklk INTO  tmp;
      EXIT  WHEN  spektaklk%NOTFOUND;
      DBMS_OUTPUT.PUT_LINE('Nazwa: ' || tmp.tytul || 'Grane od: ' || tmp.poczatek_grania || 'Rezyser: ' || tmp.id_rezysera);
  END  LOOP ;
CLOSE  spektaklk;
END ;
/
SHOW err;

EXECUTE znajdz_spektakl('Hamlet');