假设有以下两个存储过程
create or replace procedure P_OUT_VARCHAR2_PRO(num in number, res out varchar2) is
v_varchar varchar2(10);
long_of_res number;
begin
v_varchar := 'abcdeabcde';
for i in 1..num
loop
res := res||v_varchar;
end loop;
long_of_res := length(res);
dbms_output.put_line('The length of out varchar2: '||to_char(long_of_res) );
end P_OUT_VARCHAR2_PRO;
create or replace procedure P_CALL_OUT_VARCHAR2_PRO(num in varchar2) is
v_retrun_varchar varchar2(30000);
long_of_res number;
begin
P_OUT_VARCHAR2_PRO(num, v_retrun_varchar);
long_of_res := length(v_retrun_varchar);
dbms_output.put_line('The length of res: '||to_char(long_of_res) );
end P_CALL_OUT_VARCHAR2_PRO;
第一个procedure P_OUT_VARCHAR2_PRO能够返回的字符串大小,取决于第二个procedure P_CALL_OUT_VARCHAR2_PRO提供的字符串缓冲区大小,即v_retrun_varchar的长度. 最大可为32767.
另外,Oracle默认procedure的out varchar2的长度是2000,所以在单独Test P_OUT_VARCHAR2_PRO时,如果res的长度超过2000就会报字符串缓冲区太小的错误。