Reading the Blob and writing it to an external file in an xml tree format

Question

Hi,
We have a table by name clarity_response_log and content of the column(Response_file) is BLOB and we have xml file or xml content in that column. Most probably the column or table may be having more than 5 records and hence we need to read the corresponding blob content and write to an external file.
CREATE TABLE CLARITY_RESPONSE_LOG
  REQUEST_CODE   NUMBER,
  RESPONSE_FILE  BLOB,
  DATE_CRATED    DATE                           NOT NULL,
  CREATED_BY     NUMBER                         NOT NULL,
  UPDATED_BY     NUMBER                         DEFAULT 1,
  DATE_UPDATED   VARCHAR2(20 BYTE)              DEFAULT SYSDATE
)The xml content in the insert statement is very small because of some reason and cannot be made public and indeed we have a very big xml file stored in the BLOB column or Response_File column
Insert into CLARITY_RESPONSE_LOG
   (REQUEST_CODE, RESPONSE_FILE, DATE_CRATED, CREATED_BY, UPDATED_BY, DATE_UPDATED)
Values
   (5, '<?xml version="1.0" encoding="UTF-8"?><xml-response><phone-number>1212121212</tracking-number></xml-response>', TO_DATE('09/23/2010 09:01:34', 'MM/DD/YYYY HH24:MI:SS'), 1, 1, '23-SEP-10');
Insert into CLARITY_RESPONSE_LOG
   (REQUEST_CODE, RESPONSE_FILE, DATE_CRATED, CREATED_BY, UPDATED_BY, DATE_UPDATED)
Values
   (6, '<?xml version="1.0" encoding="UTF-8"?><xml-response><phone-number>1212121212</tracking-number></xml-response>', TO_DATE('09/23/2010 09:01:34', 'MM/DD/YYYY HH24:MI:SS'), 1, 1, '23-SEP-10');
Insert into CLARITY_RESPONSE_LOG
   (REQUEST_CODE, RESPONSE_FILE, DATE_CRATED, CREATED_BY, UPDATED_BY, DATE_UPDATED)
Values
   (7, '<?xml version="1.0" encoding="UTF-8"?><xml-response><phone-number>1212121212</tracking-number></xml-response>', TO_DATE('09/23/2010 09:01:34', 'MM/DD/YYYY HH24:MI:SS'), 1, 1, '23-SEP-10');
Insert into CLARITY_RESPONSE_LOG
   (REQUEST_CODE, RESPONSE_FILE, DATE_CRATED, CREATED_BY, UPDATED_BY, DATE_UPDATED)
Values
   (8, '<?xml version="1.0" encoding="UTF-8"?><xml-response><phone-number>1212121212</tracking-number></xml-response>', TO_DATE('09/23/2010 09:01:34', 'MM/DD/YYYY HH24:MI:SS'), 1, 1, '23-SEP-10');
Insert into CLARITY_RESPONSE_LOG
   (REQUEST_CODE, RESPONSE_FILE, DATE_CRATED, CREATED_BY, UPDATED_BY, DATE_UPDATED)
Values
   (9, '<?xml version="1.0" encoding="UTF-8"?><xml-response><phone-number>1212121212</tracking-number></xml-response>', TO_DATE('09/23/2010 09:01:34', 'MM/DD/YYYY HH24:MI:SS'), 1, 1, '23-SEP-10');THe corresponding proc for reading the data and writing the data to an external file goes something like this
SET serveroutput ON
DECLARE
   vstart     NUMBER             := 1;
   bytelen    NUMBER             := 32000;
   len        NUMBER;
   my_vr      RAW (32000);
   x          NUMBER;
   l_output   UTL_FILE.FILE_TYPE;
BEGIN
-- define output directory
   l_output :=
      UTL_FILE.FOPEN ('CWFSTORE_RESPONCE_XML', 'extract500.txt', 'wb', 32760);
   vstart := 1;
   bytelen := 32000;
---get the Blob locator
   FOR rec IN (SELECT response_file vblob
                 FROM clarity_response_log
                WHERE TRUNC (date_crated) = TRUNC (SYSDATE - 1))
   LOOP
--get length of the blob
len := DBMS_LOB.getlength (rec.vblob);
      DBMS_OUTPUT.PUT_LINE (len);
      x := len;
---- If small enough for a single write
IF len < 32760
      THEN
         UTL_FILE.put_raw (l_output, rec.vblob);
         UTL_FILE.FFLUSH (l_output);
      ELSE  
-------- write in pieces
         vstart := 1;
         WHILE vstart < len AND bytelen > 0
         LOOP
            DBMS_LOB.READ (rec.vblob, bytelen, vstart, my_vr);
            UTL_FILE.put_raw (l_output, my_vr);
            UTL_FILE.FFLUSH (l_output);
---------------- set the start position for the next cut
            vstart := vstart + bytelen;
---------- set the end position if less than 32000 bytes
            x := x - bytelen;
            IF x < 32000
            THEN
               bytelen := x;
            END IF;
            UTL_FILE.NEW_LINE (l_output);
         END LOOP;
----------------- --- UTL_FILE.NEW_LINE(l_output);
      END IF;
   END LOOP;
   UTL_FILE.FCLOSE (l_output);
END;The above code works well and all the records or xml contents are being written simultaneously adjacent to each other but we each records must be written to a new line or there must be a line gap or a blank line between any two records
the code which I get is as follow all all xml data comes on a single line
<?xml version="1.0" encoding="ISO-8859-1"?><emp><empno>7369</empno><ename>James</ename><job>Manager</job><salary>1000</salary></emp><?xml version="1.0" encoding="ISO-8859-1"?><emp><empno>7370</empno><ename>charles</ename><job>President</job><salary>500</salary></emp>But the code written to an external file has to be something like this.
<?xml version="1.0" encoding="ISO-8859-1"?>
<emp>
  <empno>7369</empno>
  <ename>James</ename>
  <job>Manager</job>
  <salary>1000</salary>
</emp>
<?xml version="1.0" encoding="ISO-8859-1"?>
<emp>
<empno>7370</empno>
<ename>charles</ename>
<job>President</job>
<salary>500</salary>
</emp>Please advice

Answer 1

What was wrong with the previous answers given on your other thread:
Export Blob data to text file(-29285-ORA-29285: file write error)
If there's a continuing issue, stay with the same thread, don't just ask the same question again and again, it's really Pi**es people off and causes confusion as not everyone will be familiar with what answers you've already had. You're just wasting people's time by doing that.
As already mentioned before, convert your BLOB to a CLOB and then to XMLTYPE where it can be treated as XML and written out to file in a variety of ways including the way I showed you on the other thread.
You really seem to be struggling to get the worst possible way to work.