long value oracle,存储过程或函数中输出Long value值

很多时候我们在调试函数或存储过程的时候，经常会遇到想看变量的值，但是却显示Long value,让人很头疼，特此在这里写了一个过程，可用来在DBMS Output 窗口输出变量的值，可支持长达4GB的字符串数据。

/*

*功能： 输出长字符串,可支持4GB的字符串数据，便于过程/函数的调试，若出现buffer overflow ,则可调大 dbms_output.enable(50000)中参数的值

*入参： i_sourceStr

*输出： 只能在DBMS Output 窗口中输出

*/

create or replace procedure sp_putline(i_sourceStr in clob)

as

v_lenStr clob;

v_str    varchar2(4000);

v_num    number;

v_i      number;

BEGIN

dbms_output.enable(50000);

dbms_output.put_line('源字符串字符个数：'||length(i_sourceStr)||';');

if(length(i_sourceStr) > 4000) then

v_num := 1;

loop

v_lenStr := substr(i_sourceStr, v_num, 4000);

v_i := 1;

loop

v_str := substr(v_lenStr, v_i, 1000);

dbms_output.put_line(v_str);

v_i := v_i + 1000;

exit when v_i > length(v_lenStr);

end loop;

v_num := v_num + 4000;

exit when v_num > length(i_sourceStr);

end loop;

else

v_num := 1;

loop

v_str := substr(i_sourceStr, v_num, 1000);

dbms_output.put_line(v_str);

v_num := v_num + 1000;

exit when v_num > length(i_sourceStr);

end loop;

end if;

end sp_putline;

/

希望可以帮到有需要的同学。