View CLOB content

Question

Hello,
I'm trying to display the contents of a CLOB into a textarea in a region on my page using the following code, but it's not working...I get a "numeric or value error: character string buffer too small". I tried putting the code in the Source of the textarea item, I tried creating a Before Header process (hard-coding the ID value), I also tried to create a Before Header Computation...I get the same error. I have over 32K characters in the database, but I just want to display the first 32K. Whatever I'm doing wrong is probably a "DUH" mistake but what am I doing wrong?
declare
t varchar2(32000);
c clob;
begin
SELECT clob_content into c FROM minutes WHERE ID = :P3_ID;
t:= dbms_lob.substr(c,32000,1);
-- :P3_TXTVALUE := t;
return t;
end;Thank you,
Tammy

Answer 1

I think this should give you the way to acomplish that. The first two loops are there only to fill an empty clob and show that it works:
DECLARE
   v_clob          CLOB             := EMPTY_CLOB ();
   v_start         NUMBER           := 1;
   v_bytelen       NUMBER           := 200;
   v_raw           RAW (200);
   v_len           NUMBER;
   v_x             NUMBER;
   v_count         NUMBER           := 0;
   v_text          VARCHAR2 (32000);
   v_text_output   VARCHAR2 (32000);
BEGIN
   FOR x IN 1 .. 40
   LOOP
      v_text := NULL;
      FOR c IN 1 .. 1000
      LOOP
         v_text := v_text || '1';
      END LOOP;
      SELECT v_clob || UTL_RAW.cast_to_raw (v_text)
        INTO v_clob
        FROM DUAL;
   END LOOP;
   SELECT DBMS_LOB.getlength (v_clob)
     INTO v_len
     FROM DUAL;
   DBMS_OUTPUT.put_line (v_len);
   v_x := v_len;
   v_start := 1;
   WHILE v_start < v_len AND v_bytelen > 0 AND v_count < 32000
   LOOP
      DBMS_LOB.READ (v_clob, v_bytelen, v_start, v_raw);
      v_text_output := UTL_RAW.cast_to_varchar2 (v_raw);
      v_start := v_start + v_bytelen;
      v_x := v_x - v_bytelen;
      IF v_x < v_bytelen
      THEN
         v_bytelen := v_x;
      END IF;
      DBMS_OUTPUT.put_line (v_text_output);
      v_count := v_count + v_bytelen;
   END LOOP;
END;Denes Kubicek
http://deneskubicek.blogspot.com/
http://www.opal-consulting.de/training
http://apex.oracle.com/pls/otn/f?p=31517:1
http://www.amazon.de/Oracle-APEX-XE-Praxis/dp/3826655494
-------------------------------------------------------------------