Declare
   V_File_Dir  VARCHAR2(50) := '/Oracle/write/path';
   V_File_Name VARCHAR2(50) := 'File_Name.txt';
   V_File_Pointer           UTL_FILE.FILE_TYPE;
   G_Mode_Read              VARCHAR2(1)               :='R';
   G_Mode_Append            VARCHAR2(1)               :='A';
   G_Mode_Write             VARCHAR2(1)               :='W';
   L_Results                VARCHAR2(50);
Begin
   V_File_Pointer := PACE_PROC.Read_Write_Flat_Files.Open_Flat_File(V_File_Dir,V_File_Name,G_Mode_Read);
   LOOP                                                         
      L_Results := PACE_PROC.Read_Write_Flat_Files.Read_Flat_File(V_File_Pointer);
      IF L_Results = 'EOF' THEN
         EXIT;
      ELSE                                               
         DBMS_OUTPUT.PUT_LINE('Read Results: ' || L_Results);
      END IF;
   END LOOP;                                                    

   L_Results := PACE_PROC.Read_Write_Flat_Files.Close_Flat_File(V_File_Pointer);
   DBMS_OUTPUT.PUT_LINE('Close Results: ' || L_Results);
END;



