PROCEDURE getfilename
IS
   v_file_chosen   VARCHAR2 (1000);
BEGIN
   v_file_chosen :=
             GET_FILE_NAME ('c:\', file_filter => 'CSV Files (*.csv)|*.csv|');

   IF NVL (LENGTH (v_file_chosen), 0) > 0
   THEN
      :file_disp.filename_path := v_file_chosen;
   END IF;
END;

--------------------------------------------

FUNCTION get_file
   RETURN BOOLEAN
IS
   val_file       VARCHAR2 (1000);
   cat_file       text_io.file_type;
   text_line      VARCHAR2 (70);
   p_nacode       VARCHAR2 (10);
   p_nccategory   VARCHAR2 (12);
   v_numrecs      NUMBER;
BEGIN
   getfilename;
   SET_WINDOW_PROPERTY (forms_mdi_window, window_state, MINIMIZE);
   val_file := :file_disp.filename_path;

   IF val_file = ''
   THEN
      RETURN FALSE;
   END IF;

   cat_file := text_io.fopen (val_file, 'R');                 --c:\student.csv
   v_numrecs := 0;

   LOOP
      text_io.get_line (cat_file, text_line);
      COPY (SUBSTR (text_line, 1, INSTR (text_line, ',', 1, 1) - 1),
            'file_disp.na_code'
           );
      COPY (SUBSTR (text_line,
                    INSTR (text_line, ',', 1, 1) + 1,
                    LENGTH (text_line) - 1
                   ),
            'file_disp.nc_category'
           );
      p_nacode := :file_disp.na_code;
      p_nccategory := :file_disp.nc_category;
      v_numrecs := v_numrecs + 1;
      valid_rec (p_nacode, p_nccategory);
   END LOOP;

   :control.recs_in_file := v_numrecs;
   RETURN NULL;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      IF SQLCODE = -1403
      THEN
         MESSAGE (TO_CHAR (SQLCODE) || ': ' || SQLERRM);
         MESSAGE ('load failed no matching data in unit get_file');
      END IF;

      text_io.fclose (cat_file);
      RETURN TRUE;
   WHEN OTHERS
   THEN
      MESSAGE ('load failed 2 ' || TO_CHAR (SQLCODE) || ' : ' || SQLERRM);

      IF SQLCODE = -302000
      THEN
         LOOP
            EXIT WHEN tool_err.nerrors = 0;
            MESSAGE (TO_CHAR (tool_err.code) || ': ' || tool_err.MESSAGE);
            tool_err.pop;
         END LOOP;
      END IF;

      RETURN FALSE;
END;                                                           
/* get_file */