Creating an XML document from database data

/* Write out the Customer table of the Sports2000 sample database using the
   methods of the SAX-WRITER Object */
DEFINE VARIABLE hSAXWriter AS HANDLE  NO-UNDO.
DEFINE VARIABLE lOK        AS LOGICAL NO-UNDO.

CREATE SAX-WRITER hSAXWriter.
hSAXWriter:FORMATTED = TRUE.
lOK = hSAXWriter:SET-OUTPUT-DESTINATION("file", "sw-example.xml").
lOK = hSAXWriter:START-DOCUMENT( ).
lOK = hSAXWriter:START-ELEMENT("customers").

FOR EACH Customer NO-LOCK WHERE Customer.CustNum < 5:
  ASSIGN
lOK = hSAXWriter:START-ELEMENT("customer")
lOK = hSAXWriter:INSERT-ATTRIBUTE("CustNum", STRING(Customer.CustNum))
lOK = hSAXWriter:INSERT-ATTRIBUTE("Name" , Customer.Name)
    lOK = hSAXWriter:WRITE-DATA-ELEMENT("Address", Customer.Address)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Address2", Customer.Address2)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("City", Customer.City)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("State", Customer.State)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("PostalCode", Customer.PostalCode)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Country", Customer.Country)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Phone", Customer.Phone)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Contact", Customer.Contact)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("SalesRep", Customer.SalesRep)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("CreditLimit",
      STRING(Customer.CreditLimit))
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Balance",
      STRING(Customer.Balance))
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Terms", Customer.Terms)
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Discount",
      STRING(Customer.Discount))
lOK = hSAXWriter:WRITE-DATA-ELEMENT("Comments", Customer.Comments)
    lOK = hSAXWriter:END-ELEMENT("customer").
END.

lOK = hSAXWriter:END-ELEMENT("customers").
lOK = hSAXWriter:END-DOCUMENT( ).

DELETE hSAXWriter.