Creating XML File

Hi All,

As in Dynamics AX, XML is widely used , so I got a code which will help to create XML file.

void CreateXMLFile()
{
 
 XmlDocument doc;
 XmlElement nodeXml;
 XmlElement nodeTable;
 XmlElement nodeAccount;
 XmlElement nodeName;
 LedgerTable ledgerTable;
 #define.filename('<documents>\\accounts.xml')
 ;
 doc = XmlDocument::newBlank();
 nodeXml = doc.createElement('xml');
 doc.appendChild(nodeXml);
 while select ledgerTable
 {
     nodeTable = doc.createElement(tablestr(LedgerTable));
     nodeTable.setAttribute(
                  fieldstr(LedgerTable, RecId),
                  int642str(ledgerTable.RecId));
     nodeXml.appendChild(nodeTable);
     nodeAccount = doc.createElement(
                 fieldstr(LedgerTable, AccountNum));
     nodeAccount.appendChild(
    doc.createTextNode(ledgerTable.AccountNum));
    nodeTable.appendChild(nodeAccount);
    nodeName = doc.createElement(
                                         fieldstr(LedgerTable, AccountName));
    nodeName.appendChild(doc.createTextNode(ledgerTable.AccountName));
    nodeTable.appendChild(nodeName);
 }
 doc.save(#filename);
}