DECLARE
  TYPE t_RekordOsoby IS RECORD(

  z_Id  osoby.id_os%TYPE,
  z_Imie osoby.imie1%TYPE,
  z_Nazwisko osoby.nazwisko%TYPE,
  z_Data_ur osoby.d_ur%TYPE
  );
  z_DaneOsoby t_RekordOsoby;
BEGIN
  SELECT id_os, imie1, nazwisko, d_ur
    INTO z_DaneOsoby.z_Id, z_DaneOsoby.z_Imie, z_DaneOsoby.z_Nazwisko, z_DaneOsoby.z_Data_ur
    FROM osoby
    WHERE id_os = 1;
  DBMS_OUTPUT.PUT_LINE(z_DaneOsoby.z_Id||' '||z_DaneOsoby.z_Imie||' '||z_DaneOsoby.z_Nazwisko||' '||z_DaneOsoby.z_Data_ur);
END;