RE: Socket Buffering question

Thanks for the input Scott,

"However, I can't see anything in the part of the code you posted that
would cause this -- then again, the part of the code you posted seems to
be checking the output of select(), and NOT where you read the data from
the socket, and tells nothing about how you're buffering it, so I would
look in other areas of your code, if I were you."

I thought this was the location (the CheckSockets SR) in your template
(serverex4) where the data is read/written. (I'm not performing any
equivalent of the DoClients SR.)

I'm not sure I understand what you mean about "how you're buffering it",
but - I wasn't aware of the 'buffer clean up' task that you also
mentioned. To remedy that, I recoded the portion of the SR (below) notated
by gpkx to do the following. The results (so far) are much better (and
acceptable).

sk C*===============================================================
sk C* This reads any data that's waiting to be read from each
sk C* socket, and writes any data that's waiting to be written.
sk C*
sk C* Also disconnects any socket that returns an error, or has
sk C* and exceptional condition pending.
sk C*===============================================================
sk CSR CheckSockets begsr
sk C*------------------------
sk c do MAXCLIENTS C
sk
sk c C occur client
sk
sk c if sock <> -1
sk
sk c if FD_ISSET(sock: readset)
sk c if ReadClient(C) < 0
sk c callp EndClient(C)
sk c callp FD_CLR(sock: excpset)
sk c callp FD_CLR(sock: writeset)
gpk * Load socket data from input buffer, do custom processing,
gpk * and load the ACK to the output buffer...
gpk C Else
gpkx C Eval Wrbuf = *Blanks
gpkx C Eval Wrbuflen = *Zero
gpkx C Eval IscketData = *Blanks
gpkx C Eval IscketData = Rdbuf
gpkx C Exsr ReadIscket
gpkx C Eval Rdbuf = *Blanks
gpkx C Eval Rdbuflen = *Zero
gpkx C Eval Wrbuflen = %Len(OscketData)
gpkx C Eval Wrbuf = OscketData
sk c endif
sk c endif
sk
sk c if FD_ISSET(sock: writeset)
sk c if WriteClient(C) < 0
sk c callp EndClient(C)
sk c callp FD_CLR(sock: excpset)
sk c callp FD_CLR(sock: writeset)
sk c endif
sk c endif
sk
sk c if FD_ISSET(sock: excpset)
sk c callp EndClient(C)
sk c endif
sk
sk c endif
sk
sk c enddo
sk C*------------------------
sk CSR endsr
sk C*===============================================================


Regards, Jerry

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


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.