XSDPositiveInteger

Map 4GL DECIMAL to XML Schema positiveInteger.

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

<Root>
  <Val>+41893</Val>
</Root>