&ACCESS RV
DEFFCT INT GetInt16 (iVal:IN )
   DECL INT iVal,iRet
   IF iVal>32767 THEN
      iRet=iVal-65536
   ELSE
       iRet=iVal
   ENDIF
   RETURN iRet
ENDFCT