Producing XML with Namespaces

begin_definitions
const

    digital_signature_schema : string value 'http://www.w3.org/2000/09/xmldsig#'
    invoice_schema           : string value 'http://www.example.org/invoices/2009/v3.2/Invoice'
    media                    : string value 'http://media.web/xml'

var

    xml_file                 : xml
    xml_root                 : xmlnode
    xml_node                 : xmlnode
    path                     : string

booleans

end_definitions

routine main
begin_routine

  xml_file.setxmldeclaration ('1.0', 'utf-8')

  xml_root := xml_file.add ('fe:Invoice', invoice_schema)
  xml_root.addNamespaceDeclaration ('ds', digital_signature_schema)
  xml_root.addNamespaceDeclaration ('mm', media)

  // the specified namespace matches the prefix and it has been declared on the parent node, => declaration is not repeated
  xml_node := xml_root.add ('ds:TestNode1', digital_signature_schema)
  xml_node.value := 'Dummy1'

  // the specified namespace matches the prefix and it has been declared on the parent node, => declaration is not repeated
  xml_node := xml_root.add ('fe:TestNode2', invoice_schema)
  xml_node.value := 'Dummy2'

  // the specified namespace does not match the prefix, => it is redeclared with the new prefix
  xml_node := xml_root.add ('fe:TestNode3', digital_signature_schema)
  xml_node.value := 'Dummy3'

  // the specified namespace is not known in the (parent) node, => it does not fit, no node is generated
  xml_node := xml_root.add ('mm:TestNode4', 'some_other_non_matching_namespace')
  xml_node.value := 'Dummy4'

  // the specified namespace is known in the (parent) node but the prefix is not, => it is redeclared with the new prefix
  xml_node := xml_root.add ('rr:TestNode5', media)
  xml_node.value := 'Dummy5'

  // namespace media is still linked to prefix mm on this level
  xml_node := xml_root.add ('mm:TestNode6', media)
  xml_node.value := 'Dummy6'

  // the redeclaration of fe only applies to the new child node, here fe is still linked to invoice_schema
  xml_node := xml_root.add ('fe:TestNode7', invoice_schema)
  xml_node.value := 'Dummy7'

  path := 'C:\AMT\Files\Extracts\Invoice.xml'
  xml_file.save (path)

  sme (getlastresult)

end_routine