--Test convert Long to Blob;

create table long_test(

field1 Long;

);

/

alter table long_test add field2 Blob;

/

alter table long_test modify field1 Clob;

/

declare

c clob;

cursor cv_clob is?

select field1 from long_test;

begin

? ? open cv_clob;

? ? LOOP?

? ? ? FETCH cv_clob

? ? ? INTO c;

? ? ? update long_test set field2 = c2b(c);

? ? EXIT WHEN cv_clob%NOTFOUND; ?

? ? END LOOP;

? ? commit;

end;

/

alter table long_test drop column field1;

/

alter table long_test rename column field2 to field1;