You can also use something like this:
HERE .a
.$message = $ENCODE(/L, INT(DX(.a))) ; X
.$message = $ENCODE(/L, INT(DY(.a))) ; Y
..$message = $ENCODE(/L, INT(DZ(.a))) + ; Z
.$message = $ENCODE(/L, INT(DEXT(.a, 4))) ; O
.$message = $ENCODE(/L, INT(DEXT(.a, 5))) ; A
.$message = $ENCODE(/L, INT(DEXT(.a, 6))) ; T
and for sending on TCP/IP maybe create a string with this kind of structure:
$tcp.message = "<Message ID" + $ENCODE(/L, LEN(.$message)) + .$message +">" it depends how you want to create your message.