88 TIBEMS-NULL VALUE X'00'.
88 TIBEMS-BOOL VALUE X'01'.
88 TIBEMS-BYTE VALUE X'02'.
88 TIBEMS-WCHAR VALUE X'03'.
88 TIBEMS-SHORT VALUE X'04'.
88 TIBEMS-INT VALUE X'05'.
88 TIBEMS-LONG VALUE X'06'.
88 TIBEMS-FLOAT VALUE X'07'.
88 TIBEMS-DOUBLE VALUE X'08'.
88 TIBEMS-UTF8 VALUE X'09'.
88 TIBEMS-BYTES VALUE X'0A'.
88 TIBEMS-MAP-MSG VALUE X'0B'.
88 TIBEMS-STREAM-MSG VALUE X'0C'.
88 TIBEMS-SHORT-ARRAY VALUE X'14'.
88 TIBEMS-INT-ARRAY VALUE X'15'.
88 TIBEMS-LONG-ARRAY VALUE X'16'.
88 TIBEMS-FLOAT-ARRAY VALUE X'17'.
88 TIBEMS-DOUBLE-ARRAY VALUE X'18'.
05 MsgFld-size PIC S9(9) BINARY.
05 MsgFld-count PIC S9(9) BINARY.