XMLParser error in PL/SQL

Question

I am using DBMS_XMLParser in Oracle 10g to parse an XML. The code is as follows:
CREATE OR REPLACE procedure xml_main is
P DBMS_XMLPARSER.Parser;
DOC CLOB;
v_xmldoc DBMS_XMLDOM.DOMDocument;
v_out CLOB;
BEGIN
P := DBMS_XMLPARSER.newParser;
DBMS_XMLPARSER.setValidationMode(p, FALSE);
DOC := '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<com.welligent.Student.BasicStudent.Create>
<ControlAreaSync messageCategory="com.welligent.Student" messageObject="BasicStudent" messageAction="Create" messageRelease="1.0" messagePriority="1" messageType="Sync">
<Sender>
<MessageId>
<SenderAppId>com.openii.SyncRouter</SenderAppId>
<ProducerId>a72af712-90ea-43be-b958-077a87a29bfb</ProducerId>
<MessageSeq>53</MessageSeq>
</MessageId>
<Authentication>
<AuthUserId>Router</AuthUserId>
</Authentication>
</Sender>
<Datetime>
<Year>2001</Year>
<Month>3</Month>
<Day>23</Day>
<Hour>13</Hour>
<Minute>47</Minute>
<Second>30</Second>
<SubSecond>223</SubSecond>
<Timezone>6:00-GMT</Timezone>
</Datetime>
</ControlAreaSync>
<DataArea>
<NewData>
<BasicStudent mealCode="" usBorn="Yes" migrant="No" workAbility="No" ellStatus="">
<StudentNumber>052589F201</StudentNumber>
<ExternalIdNumber>1234567890</ExternalIdNumber>
<StateIdNumber>123456</StateIdNumber>
<Name>
<LastName>Lopez</LastName>
<FirstName>Maria</FirstName>
<MiddleName>S</MiddleName>
</Name>
<Gender>Female</Gender>
<BirthDate>
<Month>1</Month>
<Day>1</Day>
<Year>1995</Year>
</BirthDate>
<Race>Hispanic</Race>
<Ethnicity>Hispanic</Ethnicity>
<PrimaryLanguage>English</PrimaryLanguage>
<HouseholdLanguage>Spanish</HouseholdLanguage>
<Address>
<Street>123 Any Street</Street>
<ApartmentNumber>12-D</ApartmentNumber>
<City>Los Angeles</City>
<County>Los Angeles</County>
<State>CA</State>
<ZipCode>90071</ZipCode>
</Address>
</BasicStudent>
</NewData>
</DataArea>
</com.welligent.Student.BasicStudent.Create>';
DBMS_XMLPARSER.PARSECLOB ( P, DOC );
v_xmldoc := DBMS_XMLPARSER.getDocument(P);
printElementAttributes(v_xmldoc);
exception
when DBMS_XMLDOM.INDEX_SIZE_ERR then
raise_application_error(-20120, 'Index Size error');
when DBMS_XMLDOM.DOMSTRING_SIZE_ERR then
raise_application_error(-20120, 'String Size error');
when DBMS_XMLDOM.HIERARCHY_REQUEST_ERR then
raise_application_error(-20120, 'Hierarchy request error');
when DBMS_XMLDOM.WRONG_DOCUMENT_ERR then
raise_application_error(-20120, 'Wrong doc error');
when DBMS_XMLDOM.INVALID_CHARACTER_ERR then
raise_application_error(-20120, 'Invalid Char error');
when DBMS_XMLDOM.NO_DATA_ALLOWED_ERR then
raise_application_error(-20120, 'Nod data allowed error');
when DBMS_XMLDOM.NO_MODIFICATION_ALLOWED_ERR then
raise_application_error(-20120, 'No mod allowed error');
when DBMS_XMLDOM.NOT_FOUND_ERR then
raise_application_error(-20120, 'Not found error');
when DBMS_XMLDOM.NOT_SUPPORTED_ERR then
raise_application_error(-20120, 'Not supported error');
when DBMS_XMLDOM.INUSE_ATTRIBUTE_ERR then
raise_application_error(-20120, 'In use attr error');
END;
CREATE OR REPLACE procedure printElementAttributes(doc DBMS_XMLDOM.DOMDocument) is
nl DBMS_XMLDOM.DOMNODELIST;
len1 NUMBER;
len2 NUMBER;
n DBMS_XMLDOM.DOMNODE;
e DBMS_XMLDOM.DOMELEMENT;
nnm DBMS_XMLDOM.DOMNAMEDNODEMAP;
attrname VARCHAR2(100);
attrval VARCHAR2(100);
text_value VARCHAR2(100):=NULL;
n_child DBMS_XMLDOM.DOMNODE;
BEGIN
-- get all elements
nl := DBMS_XMLDOM.getElementsByTagName(doc, '*');
len1 := DBMS_XMLDOM.getLength(nl);
-- loop through elements
FOR j in 0..len1-1 LOOP
n := DBMS_XMLDOM.item(nl, j);
e := DBMS_XMLDOM.makeElement(n);
DBMS_OUTPUT.PUT_LINE(DBMS_XMLDOM.getTagName(e) || ':');
-- get all attributes of element
nnm := DBMS_XMLDOM.getAttributes(n);
n_child:=DBMS_XMLDOM.getFirstChild(n);
text_value:=DBMS_XMLDOM.getNodeValue(n_child);
dbms_output.put_line('val='||text_value);
IF (DBMS_XMLDOM.isNull(nnm) = FALSE) THEN
len2 := DBMS_XMLDOM.getLength(nnm);
dbms_output.put_line('length='||len2);
-- loop through attributes
FOR i IN 0..len2-1 LOOP
n := DBMS_XMLDOM.item(nnm, i);
attrname := DBMS_XMLDOM.getNodeName(n);
attrval := DBMS_XMLDOM.getNodeValue(n);
dbms_output.put(' ' || attrname || ' = ' || attrval);
END LOOP;
dbms_output.put_line('');
END IF;
END LOOP;
END printElementAttributes;
While executing the xml_main proc from an anonymous block, I am getting the following error:
ORA-04063: package body "XDB.DBMS_XMLPARSER" has errors
ORA-06508: PL/SQL: could not find program unit being called: "XDB.DBMS_XMLPARSER"
ORA-06512: at "BALB.XML_MAIN", line 9
ORA-06512: at line 2
I've checked that the XDB is installed in my database by running the below query and getting the output
select comp_name, version, status
from dba_registry
where comp_name like '%XML%';
COMP_NAME VERSION STATUS
Oracle XML Database 10.2.0.2.0 VALID
1 row selected.
Please let me know a way out to resolve it?

Answer 1

It worked for me. I ran your code fine in Oracle 10g. Now 9i is probably a different story.