将打印到output的过长一行句子，自动截断成几行，用来打印本地报表: from http://hgworkhouse.org PL/SQL 报表打印 Oracle Procedure my_output(p_text in varchar2) is p_sum_length number := 0; p_length number := 200; p_index number := 1; p_time numb
将打印到output的过长一行句子，自动截断成几行，用来打印本地报表: from http://hgworkhouse.org PL/SQL 报表打印 Oracle
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;
