XSDNegativeInteger

Map 4GL DECIMAL to XML Schema negativeInteger.

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

<Root>
  <Val>-4828</Val>
</Root>