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;