Miss_Dev
New Member
Hi , I have a program that creates an XML file . How can I stop the xml declaration from being added to the xml by default ?
xml declaration
<?xml version="1.0" encoding="UTF-8" ?>
code spinet
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE v_ptrXML AS MEMPTR NO-UNDO.
DEFINE VARIABLE o_hXDoc AS HANDLE NO-UNDO.
CREATE SAX-WRITER h.
define variable v_nameFile as character no-undo.
ASSIGN v_nameFile = "R:\task\ashus\abc.xml" .
h:SET-OUTPUT-DESTINATION("MEMPTR", v_ptrXML).
h:FORMATTED = TRUE.
h:FRAGMENT = TRUE.
h:START-DOCUMENT().
h:START-ELEMENT("customer").
h:WRITE-DATA-ELEMENT("name","Ahus").
h:WRITE-DATA-ELEMENT("addr","Address1").
h:WRITE-DATA-ELEMENT("addr2","").
h:WRITE-DATA-ELEMENT("addr3","Adress3").
h:WRITE-DATA-ELEMENT("newline","~n").
h:WRITE-DATA-ELEMENT("spaces"," ").
h:WRITE-DATA-ELEMENT("dob", "25/02/1990").
h:END-ELEMENT("customer").
h:END-DOCUMENT().
DELETE OBJECT h.
ASSIGN h = ? .
CREATE X-DOCUMENT o_hXDoc.
o_hXDoc:LOAD("MEMPTR", v_ptrXML, FALSE) .
o_hXDoc:save("file",v_nameFile) NO-ERROR.
=============================================================================
OUTPUT
<?xml version="1.0" encoding="UTF-8" ?>
<customer>
<name>Ahus</name>
<addr>Address1</addr>
<addr2/>
<addr3>Adress3</addr3>
<newline>
</newline>
<spaces> </spaces>
<dob>25/02/1990</dob>
</customer>
xml declaration
<?xml version="1.0" encoding="UTF-8" ?>
code spinet
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE v_ptrXML AS MEMPTR NO-UNDO.
DEFINE VARIABLE o_hXDoc AS HANDLE NO-UNDO.
CREATE SAX-WRITER h.
define variable v_nameFile as character no-undo.
ASSIGN v_nameFile = "R:\task\ashus\abc.xml" .
h:SET-OUTPUT-DESTINATION("MEMPTR", v_ptrXML).
h:FORMATTED = TRUE.
h:FRAGMENT = TRUE.
h:START-DOCUMENT().
h:START-ELEMENT("customer").
h:WRITE-DATA-ELEMENT("name","Ahus").
h:WRITE-DATA-ELEMENT("addr","Address1").
h:WRITE-DATA-ELEMENT("addr2","").
h:WRITE-DATA-ELEMENT("addr3","Adress3").
h:WRITE-DATA-ELEMENT("newline","~n").
h:WRITE-DATA-ELEMENT("spaces"," ").
h:WRITE-DATA-ELEMENT("dob", "25/02/1990").
h:END-ELEMENT("customer").
h:END-DOCUMENT().
DELETE OBJECT h.
ASSIGN h = ? .
CREATE X-DOCUMENT o_hXDoc.
o_hXDoc:LOAD("MEMPTR", v_ptrXML, FALSE) .
o_hXDoc:save("file",v_nameFile) NO-ERROR.
=============================================================================
OUTPUT
<?xml version="1.0" encoding="UTF-8" ?>
<customer>
<name>Ahus</name>
<addr>Address1</addr>
<addr2/>
<addr3>Adress3</addr3>
<newline>
</newline>
<spaces> </spaces>
<dob>25/02/1990</dob>
</customer>