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;
时间: 2024-10-28 06:35:25