CREATE OR REPLACE
PROCEDURE system_run2
IS
file1   VARCHAR2(40) := 'my-temp-file4.dat';
MyFile        utl_file.file_type;
d             VARCHAR2(4000);
BEGIN
-- Open file
MyFile := utl_file.fopen('TMP2',file1,'R');
LOOP
BEGIN
utl_file.get_line(MyFile,d);
dbms_output.put_line(d);
EXCEPTION
WHEN OTHERS THEN
EXIT;
END;
END LOOP;
utl_file.fclose(MyFile);
END;