Re: RPG Socket API help?

["Mike Cunningham" <MCUNNING@xxxxxxx>]

On the topic. I just stumbled across this site. 
http://www-03.ibm.com/servers/eserver/services/assets/tcp_scktsrver.html
I contacted IBM. They will give you the client side APIs for no charge.
Only the server side has a fee. I have not had time to use them as yet
but I thought others might be interested if they need to do any socket
client code on the iSeries. Sample code in RPG is provided and it looks
really simple. Looks like this has existed for at least 5 years, I
wonder why it does ship as part of OS/400. 

> > > rpg400-l@xxxxxxxxxxxxxxxx 8/8/2006 4:10:58 PM >>>

The recv() API doesn't have a timeout capability.  Don't let this stop

you, however.  There are (at least) two ways to time out a socket.

a) you can call the select() API to see if there's data to receive. 
Select can wait until there's data to receive, or until a timeout
occurs. 
If you call it before calling recv() each time you can write your code
so 
that it only calls recv() if there's data to receive -- if a timeout 
occurs, you don't call recv(), you just say "time out!"

b) You can use the alarm() API to have the system send you a signal
after 
a specified number of seconds.  If your program receives a signal, it
will 
abort a socket API. The recv() API will return -1 and set errno to
EINTR 
(which means "interrupted by signal")

If you always tell it to send you a signal before calling recv(), this

will result in a timeout.

I've described both of these techniques, and even provided sample code,
on 
this list in the past.  Please search the archives.

---
Scott Klement http://www.scottklement.com

On Tue, 8 Aug 2006, Robert Upshall wrote:

> Can anybody tell me if it is possible to set the timeout value on a
> socket receive?
>
>
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.