oracle 循环打印 超长的字符串

create or replace procedure utils_sysout(sqlstr varchar2) is
clength  number;
i number;
begin
  i:=1;
  clength:=ceil(length(sqlstr)/100);
  dbms_output.enable(99999999999999);
  while i<=clength loop   
  DBMS_OUTPUT.put_line(subStr(sqlstr,1+100*(i-1),100));  
   i:=i+1;

  end loop;

  DBMS_OUTPUT.put_line('-------------------------打印结束----------------------');

end utils_sysout;