procedure dump_clob( c in out nocopy clob ) is
chunk_size integer := 254 ;
n_chunks integer := ceil( length© / chunk_size ) ;
begin
  for i in 0 .. n_chunks -1
  loop
    dbms_output.put_line(substr(c,i*chunk_size+1,chunk_size));
  end loop;
end;