输出超过256个字符代码
CREATE OR REPLACE PROCEDURE giti_output(l_str VARCHAR2) IS
--l_str VARCHAR2(2000);
tmp_str VARCHAR2(300);
i NUMBER;
l_p NUMBER;
BEGIN
i := 0;
WHILE i < length(l_str)
LOOP
l_p := instr(substr(l_str, i + 1, 255), chr(10));
IF l_p > 0
THEN
tmp_str := substr(l_str, i + 1, l_p - 1);
i := i + l_p;
ELSE
tmp_str := substr(l_str, i + 1, 255);
i := i + 256;
END IF;
dbms_output.put_line(tmp_str);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('giti_output:exception');
dbms_output.put_line(SQLERRM);
END giti_output;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/13996372/viewspace-626497/ ，如需转载，请注明出处，否则将追究法律责任。
