利用存储过程数据库中的数据生成txt文件

PROCEDURE PROC_WRITE_DAT_POD( o_sts OUT BINARY_INTEGER,
o_errm OUT VARCHAR2)

IS

PROCESS_ERROR EXCEPTION;
w_errm VARCHAR2(100);
w_cursor T_CURSOR;
l_dat_file utl_file.file_type;
w_sql1 VARCHAR2(4000 BYTE);

w_inp_str VARCHAR2(4000);
w_file_name VARCHAR2(200); --ファイル名

w_create_folder_sql VARCHAR2(200);
w_fexist_flg BOOLEAN;

w_block_size BINARY_INTEGER;

w_cis_ms_item CIS_MS_ITEM1;
w_flength NUMBER:=0;
c_gst_filepath VARCHAR2(20) := 'UCE_DIR';
w_path VARCHAR2(20) := 'E:/ztg';

BEGIN
o_sts := c_process_sts_ok;
--フォルダを指定する
w_create_folder_sql :=' create or replace directory '||c_gst_filepath|| ' as '''
|| w_path ||'''';
EXECUTE IMMEDIATE w_create_folder_sql;

w_file_name:='test.txt';
--ファイルを生成する
l_dat_file :=utl_file.fopen(c_gst_filepath,w_file_name ,'w',32767);
utl_file.fgetattr(c_gst_filepath,w_file_name,w_fexist_flg,w_flength,w_block_size);
IF NOT w_fexist_flg THEN
w_errm :='Create file error.';
RAISE PROCESS_ERROR;
END IF;

--１：Segment Name: Message Header部分を記入する
w_inp_str := 'Hear is message header!!!!!!!!!!!';
IF utl_file.is_open(l_dat_file) THEN
utl_file.put_line(l_dat_file,w_inp_str,TRUE);
--w_flength := w_flength+1;
ELSE
w_errm :='Write file error';
RAISE PROCESS_ERROR;
END IF;

--w_inp_strをクリアする
w_inp_str :='';

--２：Segment Name: Header Information部分を記入する
w_sql1:=' select item_code,vendor_code,item_description,ins_date from cis_ms_item t ';
--|| ' where t.item_code = ''' || i_vmisitecode || '''';

--w_sql1を実行する
OPEN w_cursor FOR w_sql1;
LOOP
FETCH w_cursor INTO w_cis_ms_item;
EXIT WHEN w_cursor%NOTFOUND;
--ファイルにデータを記入する
w_inp_str := w_cis_ms_item.item_code || ','
|| w_cis_ms_item.vendor_code || ','
|| w_cis_ms_item.item_description || ','
|| w_cis_ms_item.ins_date;
IF utl_file.is_open(l_dat_file) THEN
utl_file.put_line(l_dat_file,w_inp_str,TRUE);
w_flength := w_flength+1;
ELSE
w_errm :='Write file error';
RAISE PROCESS_ERROR;
END IF;
END LOOP;
CLOSE w_cursor;
--w_inp_strをクリアする
w_inp_str :='';
-- ４：Segment Name: Message Trailer部分を記入する
w_inp_str := 'レコード合計数:' || w_flength;
IF utl_file.is_open(l_dat_file) THEN
utl_file.put_line(l_dat_file,w_inp_str,TRUE);
ELSE
w_errm :='Write file error';
RAISE PROCESS_ERROR;
END IF;
utl_file.fclose_all;
EXCEPTION
WHEN PROCESS_ERROR THEN
ROLLBACK;
utl_file.fclose_all;
--生成したファイルを削除する
utl_file.fgetattr(c_gst_filepath,w_file_name,w_fexist_flg,w_flength,w_block_size);
IF w_fexist_flg THEN
utl_file.fremove(c_gst_filepath,w_file_name);
END IF;
o_sts:=c_process_sts_error;
o_errm :=dbms_utility.format_error_stack;
WHEN OTHERS THEN
ROLLBACK;
utl_file.fclose_all;
--生成したファイルを削除する
utl_file.fgetattr(c_gst_filepath,w_file_name,w_fexist_flg,w_flength,w_block_size);
IF w_fexist_flg THEN
utl_file.fremove(c_gst_filepath,w_file_name);
END IF;
o_sts:=c_process_sts_error;
o_errm :=dbms_utility.format_error_stack;
END;