declare 

  l_offset number; 

  temp_node clob; 

  temp varchar2(16000 byte); 

begin 

  l_offset := 1; -- указатель копирования в исходную позицию 

  while (l_offset < length(temp_node)) -- цикл копирования из clob в    

  --строку для записи в файл 

loop      

      -- (сделано для обхода ограничения oracle на работу с текстовыми 

      --файлами) 

  UTL_FILE.fclose(fname_handle);  -- переоткрыть файл 

  fname_handle := UTL_FILE.fopen(''IMPDIR'',fname,''a'',32000);  -- и дописывать в 

   --конец 

  temp := dbms_lob.substr(temp_node,32000,l_offset); 

      -- записать ту часть которая влезает в размер строки (32000) с заданного 

      --места 

  temp := dbms_lob.substr(temp_node,16000,l_offset);           

  UTL_FILE.put_line(fname_handle,temp,true); 

  UTL_FILE.FFLUSH(fname_handle); 

  l_offset := l_offset + 32000;   -- сместить указатель на 32000      

end loop; 

end;