XSDNonNegativeInteger

Map 4GL DECIMAL to XML Schema nonNegativeInteger.

DEFINE myVar RECORD ATTRIBUTE(XMLName="Root")
  val1 DECIMAL(32,0) ATTRIBUTE(XSDNonNegativeInteger,XMLName="Val")
END RECORD

<Root>
  <Val>1589</Val>
</Root>