XSDUnsignedShort

Map 4GL INTEGER or BIGINT to XML Schema unsignedShort.

DEFINE myVar RECORD ATTRIBUTE(XMLName="Root")
  val1 INTEGER ATTRIBUTE(XSDUnsignedShort,XMLName="Val")
END RECORD
<Root>
  <Val>65535</Val>
</Root>