Oracle存储过程读写文件

以下是代码片段： CREATE OR REPLACE PROCEDURE V3_SUB_FETCH_TEST_2 ( V_TEMP VARCHAR2, --1为成功，0为失败 v_retvalue OUT NUMBER ) AS --游标定义 type ref_cursor_type is REF CURSOR; cursor_select ref_cursor_type; select_cname varchar2(1000); v_file_handle utl_file.file_type; v_sql varchar2(1000); v_filepath Varchar2(500); v_filename Varchar2(500); --缓冲区 v_results Varchar2(500); v_pid varchar2(1000); v_cpcnshortname Varchar2(500); begin v_filepath := V_TEMP; if v_filepath is null then v_filepath := '/home/zxin10/file3'; end if; v_filename:='free_'|| substr(to_char(sysdate,'YYYYMMDDHH24MI'),1,10) ||'.all' ; --游标开始 select_cname:='select cpid,cpcnshortname from zxdbm_ismp.scp_basic'; --打开一个文件句柄 ,同时fopen的第一个参数必须是大写 v_file_handle:=utl_file.fopen('BBB',v_filename,'A'); Open cursor_select For select_cname; Fetch cursor_select into v_pid,v_cpcnshortname; While cursor_select%Found Loop v_results := v_pid||'|'||v_cpcnshortname; --将v_results写入文件 utl_file.put_line(v_file_handle,v_results); Fetch cursor_select into v_pid,v_cpcnshortname; End Loop; Close cursor_select;--关闭游标 utl_file.fClose(v_file_handle);--关闭句柄 v_retvalue :=1; exception when others then v_retvalue :=0; end V3_SUB_FETCH_TEST_2;