DECLARE  w_file_path   VARCHAR2(4000) := 'XXIF_INPUT'; --all_directories.directory_name  w_file_name   VARCHAR2(4000) := 'lcytest001.csv'; --The file name  w_file_exists BOOLEAN;  w_file_length NUMBER(10) DEFAULT 0;  w_file_type   utl_file.file_type;  w_line        VARCHAR2(4000) DEFAULT NULL;  w_rec_count   NUMBER := 1;  w_block_size  BINARY_INTEGER;  --  TYPE tbl_varchar2 IS TABLE OF VARCHAR2(4000) INDEX BY BINARY_INTEGER;  rec_record tbl_varchar2;BEGIN  --  fnd_global.apps_initialize(user_id      => 1110,                             resp_id      => 50683,                             resp_appl_id => 222);  --  utl_file.fgetattr(w_file_path,                    w_file_name,                    w_file_exists,                    w_file_length,                    w_block_size);  IF NOT w_file_exists THEN    dbms_output.put_line('The File is not exist!');  END IF;  --  IF w_file_length = 0 THEN    dbms_output.put_line('The File is empty!');  END IF;  --  w_file_type := utl_file.fopen(location     => w_file_path,                                filename     => w_file_name,                                open_mode    => 'r',                                max_linesize => 32767);  LOOP    utl_file.get_line(w_file_type, w_line, 32767);    dbms_output.put_line('Information is :' || w_line);    rec_record(w_rec_count) := w_line;    w_rec_count := w_rec_count + 1;  END LOOP;EXCEPTION  WHEN no_data_found THEN    utl_file.fclose(w_file_type);END;