Oracle - ORA-06502: PL/SQL: 数字或值错误 (DBMS_OUTPUT)

Adr*_*ian 4 oracle plsql oracle11g dbms-output

我实现了一个返回clob数据类型的函数,我想在DBMS Output 中打印结果。不幸的是,我收到ORA-06502: PL/SQL: numeric or value error,我认为这是由于 DBMS_OUTPUT 的大小。

这是代码。

DECLARE

    TYPE tp_col_array IS TABLE OF varchar2(32767); 
    FUNCTION my_fn (        
        p_in_proc_date IN varchar2)
        RETURN clob AS         
         vr_output_str clob;

        BEGIN            

        -- Detailed code hidden due to privacy. Sorry

        RETURN vr_output_str;

        EXCEPTION 
            WHEN LOGIN_DENIED
            THEN 
                DBMS_OUTPUT.PUT_LINE('Invalid username/password: logon denied');
        RETURN 'TEST Terminated';

    END my_fn;

BEGIN
    DBMS_OUTPUT.PUT_LINE(my_fn('31-AUG-14'));    
END;
Run Code Online (Sandbox Code Playgroud)

这里有一些可以帮助您理解这个问题的内容
1) 添加了以下内容来设置缓冲区的大小不受限制,但没有用..

DBMS_OUTPUT.ENABLE(NULL);
Run Code Online (Sandbox Code Playgroud)

或者

set serveroutput on size unlimited;
Run Code Online (Sandbox Code Playgroud)

相关链接:http://www.oracle-developer.net/display.php?id=327

2)值得注意的是,vr_output_str的大小是75387,这就是为什么返回类型为CLOB

DBMS_LOB.getlength(vr_output_str); // =75387
Run Code Online (Sandbox Code Playgroud)

3)我可以通过执行以下操作来解决问题,但我认为这不是一个好的解决方案,因为它执行了该函数3次。

DBMS_OUTPUT.PUT_LINE(SUBSTR(my_fn ('31-AUG-14'), 1, 32767));
DBMS_OUTPUT.PUT_LINE(SUBSTR(my_fn ('31-AUG-14'), 32768, 32767));
DBMS_OUTPUT.PUT_LINE(SUBSTR(my_fn ('31-AUG-14'), 65536, 32767));
Run Code Online (Sandbox Code Playgroud)

4) 我使用的是Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 - 64bit Production

小智 10

如果大于 32767 字节,您将无法直接使用 dbms_output.put_line 打印 clob。

如果是这种情况,您可以创建一个过程来遍历 clob 并一次打印出一个较小的块。这样的程序和测试脚本如下:

declare 

  c clob;

  procedure print_clob( p_clob in clob ) is
      v_offset number default 1;
      v_chunk_size number := 10000;
  begin
      loop
          exit when v_offset > dbms_lob.getlength(p_clob);
          dbms_output.put_line( dbms_lob.substr( p_clob, v_chunk_size, v_offset ) );
          v_offset := v_offset +  v_chunk_size;
      end loop;
  end print_clob;


begin
  for i in 1..10000 loop
     c := c || 'test';
  end loop;
  --This will result in ora-06502
  --dbms_output.put_line(c);

  print_clob(c);

end;
Run Code Online (Sandbox Code Playgroud)

请注意, v_chunk_size 必须导致一次分块少于 32767 个字节。如果编码每个字符有 2 个字节,则需要使用 (32767/2)。