DEF VAR hSax AS HANDLE.

CREATE SAX-WRITER hSax.

hSax:SET-OUTPUT-DESTINATION("file", "c:\temp\kantorentest.xml").
hSax:ENCODING = "utf-8".
hSax:START-DOCUMENT().
hSax:START-ELEMENT("kantoren").
FOR EACH dossier NO-LOCK:
hSax:START-ELEMENT("kantoor").
hSax:WRITE-DATA-ELEMENT("id", dossier.nr).
hSax:WRITE-DATA-ELEMENT("naam",dossier.naam).
hSax:WRITE-DATA-ELEMENT("adres",dossier.adr1).
hSax:WRITE-DATA-ELEMENT("postcode",dossier.post).
hSax:WRITE-DATA-ELEMENT("land",dossier.land).
hSax:WRITE-DATA-ELEMENT("telefoon",dossier.tf).
hSax:WRITE-DATA-ELEMENT("email",dossier.email).
hSax:END-ELEMENT("kantoor").
END.