不能用UTL_FILE.PUT_LINE写入大尺寸数据

Question

我创建了一个包含大量数据的xml。现在，我正在尝试将生成的xml写入一个文件。

声明：

prodFeed_file  UTL_FILE.FILE_TYPE;
prodFeed_file := UTL_FILE.FOPEN ('CSV_DIR', 'feed.xml', 'w', 32767); 

写入文件：

UTL_FILE.PUT_LINE(prodFeed_file,l_xmltype.getClobVal);

UTL_FILE.FCLOSE(prodFeed_file);

如果l_xmltype.getclobval返回有限的记录，则该记录是工作文件，但如果l_xmltype.getclobval超出大小（几乎35 KB)，则会出现错误：

ORA-06502:PL/SQL:数值或值错误

Answer 1

UTL_FILE文档说明：

“缓冲区参数的最大大小为32767字节，除非在Fopen中指定较小的大小。”

您必须逐块地编写CLOB。类似于这样：

DECLARE
  v_clob CLOB;
  v_clob_length INTEGER;
  pos INTEGER := 1;
  buffer VARCHAR2(32767);
  amount BINARY_INTEGER := 32760;
  prodFeed_file utl_file.file_type;
BEGIN
  prodFeed_file := UTL_FILE.FOPEN ('CSV_DIR', 'productFeedLargo.xml', 'w', 32767);
  v_clob := l_xmltype.getClobVal;
  v_clob_length := length(v_clob);

  WHILE pos < v_clob_length LOOP
    dbms_lob.read(v_clob, amount, pos, buffer);
    utl_file.put(prodFeed_file , char_buffer);
    utl_file.fflush(prodFeed_file);
    pos := pos + amount;
  END LOOP;

  utl_file.fclose(prodFeed_file);

END;
/