RE: Socket bug???

[GKern@xxxxxxxxxxxxxxxx]

Here is the exact code - note the first statement sets SocketData  to 
*Blanks - which to me, should clear the buffer. Please correct me if I'm 
wrong?

 * Load socket field and determine number of bytes in field... 
C                   Eval      SocketData = *Blanks 
C                   Eval      SocketData = HL7 
 
C                   Eval      SocketData = %Trim(SocketData) + End_Block 
C                   Eval      SocketData = %Trim(SocketData) + Car_Return 
C                   Eval      SockDtaLen = %Len(SocketData) 
 
 * Loop until message is accepted... 
C                   Eval      Tries = *Zero 
C                   Eval      Ack = No 
C                   Dou       Ack = Yes or Tries = 3 
 * Send the segment to the server over the socket... 
 * (NOTE - Need to add 2 to SockDtaLen since SocketData is defined as 
 *  VARYING - which adds 2 extra bytes to the field since the first 
 *  two bytes contain a binary value that identifies the actual length 
 *  of the data in the variable length field...) 
C                   Eval      RC = 
Write(SD:%Addr(SocketData):SockDtaLen+2)

Regards,

Gerald Kern
IBM Certified AS/400 RPG IV Developer & RPG IV Programmer
MIS Project Leader, Lotus Notes/Domino Administrator
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx