oracle 调试中使用到的存储过程

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

例如：

SQL> declare
    v_sql  varchar2(300):='';
    v_i  number:=1;
    begin
         dbms_output.enable(20000);
         for v_i in 1..256 loop
             v_sql:=v_sql||'*';
         end loop;
         put_line_unlimit(v_sql);
   end;