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;

我的异常网推荐解决方案：oracle存储过程,http://www.myexception.cn/oracle-develop/177537.html