put_line_unlimit mail.pkg --attachment

create or replace procedure put_line_unlimit(p_string in long) is
  l_string long default p_string;
begin
  loop
    exit when l_string is null;
    dbms_output.put_line(substr(l_string, 1, 255));
    l_string := substr(l_string, 256);
  end loop;
   dbms_output.put_line(' ');
end;