CONNECT xml_demo/xml_demo

SET SERVEROUTPUT ON
DECLARE

  v_xmlCLob       CLOB;
  v_wellFormed    BOOLEAN;
  v_parseError    VARCHAR2(200);
  v_documentName  VARCHAR(200);

  CURSOR c_XmlDocuments IS
  SELECT xmldoc
       , docname
  FROM   xml_documents;

BEGIN

  OPEN c_XmlDocuments;

  LOOP

    FETCH c_XmlDocuments INTO v_xmlCLob, v_documentName;

    EXIT WHEN c_XmlDocuments%NOTFOUND;

    DBMS_OUTPUT.PUT_LINE('+--------------------------------------+');
    DBMS_OUTPUT.PUT_LINE('| Checking: --> ' || v_documentName || '         |');
    DBMS_OUTPUT.PUT_LINE('+--------------------------------------+');

    -- Check it for XML Well-formedness
    checkXMLInCLOB(v_xmlCLob, v_wellFormed, v_parseError);

    -- Print out an error if if was not well-formed
    IF NOT v_wellFormed THEN
      DBMS_OUTPUT.PUT_LINE(v_parseError);
      DBMS_OUTPUT.PUT_LINE(' ');
    ELSE
      DBMS_OUTPUT.PUT_LINE('No errors found in XML Document...');
      DBMS_OUTPUT.PUT_LINE(' ');
    END IF;

  END LOOP;

END;
/