-- Olyan könyvtárba lehet írni, amelyet értékül adnak az UTL_FILE_DIR
-- paraméternek vagy amelyre mutató DIRECTORY-t előtte létrehoztunk
-- CREATE OR REPLACE DIRECTORY infokez3 AS '/tmp/INFOKEZ3';
-- GRANT READ WRITE ON DIRECTORY infokez3 TO public;

SET SERVEROUTPUT ON

DECLARE
  file_nev   utl_file.file_type;
  sor        VARCHAR2(255);
  utvonal    VARCHAR2(100);
BEGIN
  utvonal := '/tmp/INFOKEZ3';  -- így is lehetne ha UTL_FILE_DIR-ben benne lenne
  utvonal := 'INFOKEZ3';       -- Nagy betűvel kell írni !!! 

  --file_nev := utl_file.fopen(utvonal, 'out.txt', 'W');
  file_nev := utl_file.fopen(utvonal, 'Moricz_Rokonok.txt', 'R');
  LOOP
    BEGIN
      utl_file.get_line(file_nev, sor);
    EXCEPTION
      WHEN NO_DATA_FOUND THEN EXIT;
      WHEN OTHERS THEN dbms_output.put_line('hoppá!!!'); EXIT;
    END;
  END LOOP;
  dbms_output.put_line('Utolsó sor: '||sor); 
  utl_file.fclose(file_nev);
EXCEPTION
  WHEN OTHERS THEN 
    dbms_output.put_line(SQLCODE||'--'||SUBSTR(SQLERRM, 1, 100));
END;
/