Error in parsing XML File

[janakivenk]

Hello,

I am running Oracle 10g R2 in our office. I created the following procedure. It is suppose to access an xml file ( family.xml). The procedure is compiled and when I try to run it, i get the following error.

SQL> execute domsample('c:\' ,'song.xml','er ror.txt')
BEGIN domsample('c:\' ,'song.xml','er ror.txt

*
ERROR at line 1:
ORA-31001: Invalid resource handle or path
ORA-06512: at "SYS.XDBURITYPE ", line 11
ORA-06512: at "XDB.DBMS_XSLPR OCESSOR", line
ORA-29280: invalid directory path
ORA-29280: invalid directory path
ORA-29280: invalid directory path
ORA-06512: at "XDB.DBMS_XMLPA RSER", line 11
ORA-06512: at "BRREG.DOMSAMPL E", line 81
ORA-06512: at line 1



Source Code:
============

create or replace procedure domsample(dir varchar2, inpfile varchar2,
errfile varchar2) is
p DBMS_XMLPARSER. parser;
doc dbms_xmldom.DOM Document;

-- prints elements in a document
procedure printElements(d oc xmldom.DOMDocum ent) is
nl xmldom.DOMNodeL ist;
len number;
n dbms_xmldom.DOM Node;

begin
-- get all elements
nl := dbms_xmldom.get ElementsByTagNa me(doc, '*');
len := dbms_xmldom.get Length(nl);

-- loop through elements
for i in 0..len-1 loop
n := dbms_xmldom.ite m(nl, i);
dbms_output.put (dbms_xmldom.ge tNodeName(n) || ' ');
end loop;

dbms_output.put _line('');
end printElements;

-- prints the attributes of each element in a document
procedure printElementAtt ributes(doc dbms_xmldom.DOM Document) is
nl dbms_xmldom.DOM NodeList;
len1 number;
len2 number;
n dbms_xmldom.DOM Node;
e dbms_xmldom.DOM Element;
nnm dbms_xmldom.DOM NamedNodeMap;
attrname varchar2(100);
attrval varchar2(100);

begin

-- get all elements
nl := dbms_xmldom.get ElementsByTagNa me(doc, '*');
len1 := dbms_xmldom.get Length(nl);

-- loop through elements
for j in 0..len1-1 loop
n := dbms_xmldom.ite m(nl, j);
e := dbms_xmldom.mak eElement(n);
dbms_output.put _line(dbms_xmld om.getTagName(e ) || ':');

-- get all attributes of element
nnm := dbms_xmldom.get Attributes(n);

if (dbms_xmldom.is Null(nnm) = FALSE) then
len2 := dbms_xmldom.get Length(nnm);

-- loop through attributes
for i in 0..len2-1 loop
n := dbms_xmldom.ite m(nnm, i);
attrname := dbms_xmldom.get NodeName(n);
attrval := dbms_xmldom.get NodeValue(n);
dbms_output.put (' ' || attrname || ' = ' || attrval);
end loop;
dbms_output.put _line('');
end if;
end loop;

end printElementAtt ributes;

begin

-- new parser
p := DBMS_XMLPARSER. newParser;

-- set some characteristics
DBMS_XMLPARSER. setValidationMo de(p, FALSE);
DBMS_XMLPARSER. setErrorLog(p, dir || '/' || errfile);
DBMS_XMLPARSER. setBaseDir(p, dir);

-- parse input file
DBMS_XMLPARSER. parse(p, dir || inpfile);

-- get document
doc := DBMS_XMLPARSER. getDocument(p);

-- Print document elements
dbms_output.put ('The elements are: ');
printElements(d oc);

-- Print document element attributes
dbms_output.put _line('The attributes of each element are: ');
printElementAtt ributes(doc);

-- deal with exceptions
exception when others then null;

end domsample;


Family.xml
==========
<?xml version="1.0"?>
<!DOCTYPE SONG SYSTEM "c:\song.dt d">
<SONG>
<TITLE>Hot Cop</TITLE>
<COMPOSER>Jacqu es Morali</COMPOSER>
<COMPOSER>Hen ri Belolo</COMPOSER>
<COMPOSER>Victo r Willis</COMPOSER>
<PRODUCER>Jacqu es Morali</PRODUCER>
<PUBLISHER>Poly Gram Records</PUBLISHER>
<LENGTH>6:20</LENGTH>
<YEAR>1978</YEAR>
<ARTIST>Villa ge People</ARTIST>
</SONG>

family.dtd
-----------

<!ELEMENT SONG (TITLE, COMPOSER+, PRODUCER*, PUBLISHER*,
LENGTH?, YEAR?, ARTIST+)>

<!ELEMENT TITLE (#PCDATA)>

<!ELEMENT COMPOSER (#PCDATA)>
<!ELEMENT PRODUCER (#PCDATA)>
<!ELEMENT PUBLISHER (#PCDATA)>
<!ELEMENT LENGTH (#PCDATA)>
<!-- This should be a four digit year like "1999",
not a two-digit year like "99" -->
<!ELEMENT YEAR (#PCDATA)>

<!ELEMENT ARTIST (#PCDATA)>



Help is needed urgently. Please solve my problem.


Thanks,

Venkat