set serveroutput on

DECLARE
   test_file   UTL_FILE.file_type;
   data_in     VARCHAR2 (200);
   errmsg      VARCHAR2 (240); -- dbms_ouput = max 255
BEGIN
   IF UTL_FILE.is_open (test_file)
   THEN
      UTL_FILE.fclose (test_file);
   END IF;

   test_file := UTL_FILE.fopen ('/tmp', 'hello.dat', 'r');

   LOOP
      BEGIN
         UTL_FILE.get_line (test_file, data_in);
         DBMS_OUTPUT.put_line ('record data : '|| data_in);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            DBMS_OUTPUT.put_line ('no more records');
            EXIT;
      END;
   END LOOP;
EXCEPTION
   WHEN UTL_FILE.invalid_path
   THEN
      raise_application_error (-20500, 'Invalid Path or Path not in init.ora');
END;
/