Class demo.test Extends (%RegisteredObject, %XML.Adaptor)
{

Property f0 As %List;

Property f1 As %List(ODBCDELIMITER = "");

Property f2 As %ListOfDataTypes;

Property f3 As %ArrayOfDataTypes;

ClassMethod Test()
{
  s t=..%New()
  s t.f0=$lb(1,2,3,",",5)
  s t.f1=t.f0

  s f2=##class(%ListOfDataTypes).%New()
  d f2.InsertList(t.f0)

  s f3=##class(%ArrayOfDataTypes).%New()
  d f3.SetAt(1,1)
  d f3.SetAt(2,2)
  d f3.SetAt(3,3)
  d f3.SetAt(",",4)
  d f3.SetAt(5,5)

  s t.f2=f2
  s t.f3=f3
  
  d t.XMLExportToString(.export,,"literal,indent")
  w export
}

}

USER>d ##class(demo.test).Test()
<test>
  <f0>1,2,3,,,5</f0>
  <f1>123,5</f1>
  <f2>
    <f2Item>1</f2Item>
    <f2Item>2</f2Item>
    <f2Item>3</f2Item>
    <f2Item>,</f2Item>
    <f2Item>5</f2Item>
  </f2>
  <f3>
    <f3Item f3Key="1">1</f3Item>
    <f3Item f3Key="2">2</f3Item>
    <f3Item f3Key="3">3</f3Item>
    <f3Item f3Key="4">,</f3Item>
    <f3Item f3Key="5">5</f3Item>
  </f3>
</test>