PROBLEME CICS/ IP SOCKET

[mohdupont]

Bonjour,
J’ai un problème en codant en CICS IP SOCKET.
Mon module IP socket n’est pas en mode NONBLOCKING. Je passe en mode nonBLOCKING en codant :

Move 'FCNTL ' to ezaerror-function.
Move 4 to socket-fcntl-command
Move 4 to socket-fcntl-reqarg
Call EZACICSO using soket-fcntl
socket-descriptor
socket-fcntl-command
socket-fcntl-reqarg
errno
retcode
End-Call


Je fais après mon connect :
Move space to Connect-Flag
Move zeros to errno retcode
move 'CONNECT ' to ezaerror-function
CALL EZACICSO USING SOKET-CONNECT
socket-descriptor
server-socket-address
errno
retcode
End-Call

Et là j’ai un problème que je n’avais pas avant. J’ai l’erreur ‘EINPROGRESS’. En regardant la documentation IBM il est dit que je dois tester l’achèvement de la connection en faisant un CALL SELECT et en déterminant la capacité d’écrire la socket (A nonzero RETCODE with an ERRNO of 36 (EINPROGRESS) indicates that the connection could not be completed, but since the socket is nonblocking, the CONNECT macro completes its processing.The caller must test the completion of the connection setup by calling SELECT and testing for the ability to write to the socket. The completion cannot be checked by issuing a second CONNECT)

Est-ce que quelqu'un peut me dire comment code le CALL select et ou le placer(avant ou après mon CALL CONNECT) ?

Merci d'avance pour vos réponses!