How to set socket receive time out in RPGIV ?

Sorry, the RPG IV Socket Tutorial have receive time out value on Server
sample program. How do I use the same concept on the socket client
program ? Could I use following in client socket program ?

eval      tolen = %size(timeval) 
alloc     tolen         to      
eval      p_timeval = to         

callp     FD_ZERO(readset)     
callp     FD_SET(socket : readset)

eval      tv_sec = 60 
eval      tv_usec = 0 

eval      rc = select(socket+1: %addr(readset) :  *NULL : *NULL : to)  

eval      len = recv(sock: %addr(buf):%size(buf), 0)   

Any help appreciated.

Best regards,

Vengoal Chang


-----Original Message-----
From: Vengoal Chang [mailto:vengoal@xxxxxxxxxxx] 
Sent: Friday, July 18, 2003 3:03 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: How to set socket receive time out in RPGIV ?


Dear folks,
        I use the RPG IV Socket Tutorial by Scott Klement for  writing
socket AP. But I don't know how to set receive time out time. I check
information center, the rcvtimeout support from V5R2 setsockopt98 API.
Does someone help me or post some RPG example ? Any help appreciated.

Best regards,

Vengoal Chang