XSDNonPositiveInteger

Map 4GL DECIMAL to XML Schema nonPositiveInteger.

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

<Root>
  <Val>-8574</Val>
</Root>