Oracle8i和9i中PLSQL程序不同运行结果

　　declare
　　
　　type test_rec is record
　　(
　　col_1 varchar2(100)
　　);
　　
　　type test_tbl is table of test_rec index by binary_integer;
　　
　　l_tbl test_tbl;
　　
　　procedure change_value
　　is
　　begin
　　l_tbl(1).col_1 := 'I am changed!';
　　end;
　　
　　procedure sub_test(pi_str in varchar2)
　　is
　　begin
　　dbms_output.put_line('before: '||pi_str);
　　change_value;
　　dbms_output.put_line('after : '||pi_str);
　　end;
　　
　　begin
　　
　　l_tbl(1).col_1 := 'I am ok!';
　　sub_test(l_tbl(1).col_1);
　　
　　exception
　　when others then
　　dbms_output.put_line(sqlerrm);
　　end;

　　Oracle 8i Oracle 9i
　　before: I am ok! before: I am ok!
　　after : I am ok! after : I am changed!