Urgente Comunicação Balança Toledo 9091

Amigos(a). Estou com Dificuldades para construir uma comunicação com Balança Toledo, pela placa de Rede, Se alguém já conseguiu capturar , por favor me de uma luz. Fiz programa para conectar placa de rede, aparentemente funciona, porem não sei comando para armazenar a informação .Segue abaixo código que tenho. Agradeço muito a colaboração de todos. este código peguei do Fórum.


DEFINE VARIABLE mytext AS LONGCHAR NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE len AS INTEGER NO-UNDO.
DEFINE VARIABLE mysocket AS HANDLE NO-UNDO.
DEFINE VARIABLE mymemptr AS MEMPTR NO-UNDO.
DEFINE VARIABLE ret AS LOGICAL NO-UNDO.
DEFINE VARIABLE stext AS CHARACTER NO-UNDO.

CREATE SOCKET mysocket.
ret = mysocket:CONNECT("-H 192.168.0.39 -S 9092") NO-ERROR.
IF NOT ret THEN DO:
MESSAGE "Unable to connect to 'Balança Toledo'" VIEW-AS ALERT-BOX.
END.

mytext = "Peso:".
len = LENGTH(mytext).
SET-SIZE(mymemptr) = len.
SET-BYTE-ORDER(mymemptr) = BIG-ENDIAN.
PUT-STRING(mymemptr, 1, len) = mytext.
mysocket:WRITE(mymemptr,1, GET-SIZE(mymemptr)).
SET-SIZE(mymemptr) = 1.
SET-SIZE(mymemptr) = 64.
mysocket:READ (mymemptr,1,mysocket:GET-BYTES-AVAILABLE()).
disp GET-STRING(mymemptr,1).

mysocketISCONNECT().
DELETE OBJECT mysocket