If you set the MQMessage Encoding property, the following methods convert between different numeric encoding systems:
The Encoding property can be set and interpreted using the supplied WebSphere MQ constants.
Figure 1 shows an example of these:
/* Encodings for Binary Integers */ MQENC_INTEGER_UNDEFINED MQENC_INTEGER_NORMAL MQENC_INTEGER_REVERSED /* Encodings for Decimals */ MQENC_DECIMAL_UNDEFINED MQENC_DECIMAL_NORMAL MQENC_DECIMAL_REVERSED /* Encodings for Floating-Point Numbers */ MQENC_FLOAT_UNDEFINED MQENC_FLOAT_IEEE_NORMAL MQENC_FLOAT_IEEE_REVERSED MQENC_FLOAT_S390
For example, to send an integer from an Intel(R) system to a System/390(R) operating system in System/390 encoding:
Dim msg As New MQMessage 'Define an WebSphere MQ message for our use.. Print msg.Encoding 'Currently 546 (or X'222') 'Set the encoding property to 785 (or X'311') msg.Encoding = MQENC_INTEGER_NORMAL OR MQENC_DECIMAL_NORMAL OR MQENC_FLOAT_S390 Print msg.Encoding 'Print it to see the change Dim local_num As long 'Define a long integer local_num = 1234 'Set it msg.WriteLong(local_num) 'Write the number into the message
Notices |
Downloads |
Library |
Support |
Feedback
![]() ![]() |
amq743b |