oracle pl/sql 本地打印html报表

Procedure my_output(p_text in varchar2) is
    p_sum_length number := 0;
    p_length     number := 200;
    p_index      number := 1;
    p_time       number := 0;
  begin
    select length(p_text) into p_sum_length from dual;
    p_time := ceil(p_sum_length / p_length);

    for i in 1 .. p_time loop
      dbms_output.put_line(substr(p_text, p_index, p_length));
      p_index := p_index + p_length;
    end loop;
  end my_output;