How to check a XMLTYPE table for corrupted (not invalid!) XML records ??

Question

Hello,
I'd like to get help on the following issue, please. I need to check the XML data in a number of tables with XMLTYPE data type. Some of the data is corrupted but in terms not that the XML format is wrong but there is no XML at all in the fields but just only, for example, control characters (no tags, no anything, just corrupted data).
So, I have made a PL/SQL procedure cursor to get all the tables from a list, and then another cursor inside to browse each table for corrupted records. But can you help me how to check this? Any of the XML functions like for example: XMLIsValid, isFragment(), getrootelement(), etc. return to me an Oracle error "ORA-31011 XML parsing failed" and the procedure gets stuck on the first found bad record. But I need to continue and check all of them. Is it possible to get the ORA-31011 error with EXCEPTION, write to a logging table the corrupted record ID, and then continue?
Here is my simple procedure:
CREATE OR REPLACE PROCEDURE CHECKXML (v_schema in VARCHAR2)
IS
     v_Message     VARCHAR2(254);
     sql_stmt1     VARCHAR2(1000);
     sql_stmt2     VARCHAR2(1000);
     c1           SYS_REFCURSOR;
     c2           SYS_REFCURSOR;
     cur_tab          varchar2(100);
     cur_appl     varchar2(100);
     cur_rec     varchar2(200);
     valid_flag     number;
     criteria     VARCHAR2(20);
     tab1          VARCHAR2(20);
     tab2          VARCHAR2(20);
BEGIN
     criteria := 'XMLTYPE';
     sql_stmt1 := 'select id, path from ' || v_schema || '.stubfiles where type=:bcriteria';
     open c1 for sql_stmt1 using criteria;
     loop
     begin
          fetch c1 into cur_tab, cur_appl;
          exit when c1%notfound;
               insert into system.log_table values (sysdate, v_schema, 'next table', 'id ' || cur_tab, 'appl ' || cur_appl, '');
          sql_stmt2 := 'select t.recid, t.xmlrecord.isFragment() from ' || v_schema || '.' || cur_tab || ' t';
          open c2 for sql_stmt2;
          loop
          begin
          fetch c2 into cur_rec, valid_flag;
               exit when c2%notfound;
               insert into system.log_table values (sysdate, v_Schema, 'next record', 'id ' || cur_tab, 'recid ' || cur_rec, 'valid ' || valid_flag);
               commit;
          EXCEPTION
               WHEN OTHERS THEN v_Message := sqlerrm;
               dbms_output.put_line('Error for ' || cur_tab);
               dbms_output.put_line('-' || v_Message);
               insert into system.log_table values (sysdate, cur_tab, 'id err' || c_Row.ID,'appl err' || c_Row.path, v_Message,'');
          end;
          end loop;
          close c2;
          commit;
     end;
     end loop;
     close c1;
     commit;
END CHECKXML;
Thanks in advance
Evgeni

Answer 1

Hi
Why do you use a GTT? Just keep your xml in memory...
HTH
Chris