set serveroutput on format wrapped;
declare
my_var long;
begin
for x in ( select <col> from <table> where ... )
loop
my_var := dbms_lob.substr( x.<col>, 32000, 1 );
DBMS_OUTPUT.put_line(my_var);
end loop;
end;
/
set serveroutput on format wrapped;
declare
my_var long;
begin
for x in ( select <col> from <table> where ... )
loop
my_var := dbms_lob.substr( x.<col>, 32000, 1 );
DBMS_OUTPUT.put_line(my_var);
end loop;
end;
/