-- 10.2.0.5?
select * from v$version;

-- Проверка использваония ASMM 
select * from v$system_parameter p where p.name = 'sga_target'; -- !=0

-- Тест по формированию CLOB
declare
  l_clob clob;
  l_t1 number;
  l_t2 number;
begin
  -- test 1
  l_t1 := dbms_utility.get_time;
  for i in 1..100 loop
      l_clob := l_clob || rpad('1',32000);
  end loop;
  l_t2 := dbms_utility.get_time;
  dbms_output.put_line ( 'Concatenation: length = ' || dbms_lob.getlength(l_clob)||', time = '||to_char((l_t2 - l_t1)/100,'FM990D90')||' sec' );  
  
  -- test 2
  l_t1 := dbms_utility.get_time;
  dbms_lob.createtemporary(l_clob, true);
  for n in 1..100
  loop
    dbms_lob.writeappend(l_clob, length(to_char(rpad('1',32000))), to_char(rpad('1',32000)));
  end loop;
  l_t2 := dbms_utility.get_time;
  dbms_output.put_line ( 'WriteAppend  : length = ' || dbms_lob.getlength(l_clob)||', time = '||to_char((l_t2 - l_t1)/100,'FM990D90')||' sec' );
end;
/