Adding an extra element to a XML message

Question

Hello,
We are generating XML-files using DBMS_XMLQUERY on a Oracle Database 10g Enterprise Edition Release 10.2.0.3.0.
This works fine. But now one of our customers needs an extra element (header) in the XML file. How do I get this job done?
The XML-file needs to look like this:
<?xml version="1.0" encoding="UTF-8"?>
<aankomstBevestiging>
<header>
<retailPartnerCode>retailPartnerCode</retailPartnerCode>
<bestandsNaam>bestandsNaam</bestandsNaam>
<berichtNaam>berichtNaam</berichtNaam>
<berichtDatumTijd>2001-12-31T12:00:00</berichtDatumTijd>
</header>
<aankomst>
<artikelNummer>artikelNummer</artikelNummer>
<kleurNummer>kleurNummer</kleurNummer>
<maat>maat</maat>
<status>status</status>
<aantalOntvangen>1</aantalOntvangen>
<werkelijkeAankomstDatum>2001-01-01</werkelijkeAankomstDatum>
<ggb>1</ggb>
<goederenSoort>goederenSoort</goederenSoort>
</aankomst>
</aankomstBevestiging>
Currently the output looks like this:
<?xml version="1.0" encoding="UTF-8"?>
<aankomstBevestiging>
<aankomst>
<artikelNummer>artikelNummer</artikelNummer>
<kleurNummer>kleurNummer</kleurNummer>
<maat>maat</maat>
<status>status</status>
<aantalOntvangen>1</aantalOntvangen>
<werkelijkeAankomstDatum>2001-01-01</werkelijkeAankomstDatum>
<ggb>1</ggb>
<goederenSoort>goederenSoort</goederenSoort>
</aankomst>
</aankomstBevestiging>
The code generating this XML:
procedure create_xml_file(
is
l_xml clob;
l_ctx DBMS_XMLQUERY.ctxhandle;
PROCEDURE clob_to_xml (p_file IN VARCHAR2,
p_clob IN CLOB,
p_dir in varchar2,
p_setrowsettag in varchar2 default 'Dataset',
p_setrowtag in varchar2 default 'Table'
IS
l_output UTL_FILE.file_type;
l_amt NUMBER DEFAULT 5000;
l_offset NUMBER DEFAULT 1;
l_length NUMBER DEFAULT NVL (DBMS_LOB.getlength (p_clob), 0);
BEGIN
l_output := UTL_FILE.fopen (p_dir, p_file, 'w', 32760);
WHILE (l_offset < l_length)
LOOP
UTL_FILE.put (l_output, DBMS_LOB.SUBSTR (p_clob, l_amt, l_offset));
UTL_FILE.fflush (l_output);
l_offset := l_offset + l_amt;
END LOOP;
UTL_FILE.new_line (l_output);
UTL_FILE.fclose (l_output);
END clob_to_xml;
BEGIN
l_ctx := DBMS_XMLQUERY.newcontext('select mvw.rpr_artikel_nr "artikelNummer",
mvw.rpr_kleur_nr "kleurNummer",
mvw.rpr_maat_code "Maat",
mat.locus_status_code "Status",
mat.ontvangen_aantal "aantalOntvangen",
mat.werkelijke_aankomst_datum "werkelijkeAankomstDatum",
mat.ontvangst_order_nr "ggb",
mat.ontvangst_order_nr "goederenSoort"
from wdp_magazijn_aankomsten mat
, wdp_rpr_artikel_maat_vw mvw
where mvw.maa_id = mat.maa_id;);
DBMS_XMLQUERY.setrowsettag (l_ctx, 'aankomstBevestiging' );
DBMS_XMLQUERY.setrowtag (l_ctx, 'aankomst');
DBMS_XMLQUERY.setdateformat (l_ctx, 'dd-MM-yyyy HH:mm:ss');
DBMS_XMLQUERY.setencodingtag (l_ctx, 'UTF-8');
l_xml := DBMS_XMLQUERY.getxml(l_ctx);
DBMS_XMLQUERY.closecontext (l_ctx);
clob_to_xml (p_file_name,l_xml, l_dir );
end if;
end;
/

Answer 1

Posted this messages also in PL/SQL XML programming
Adding an extra element to a XML message