374
IF STATUS% > 2 THEN
'<<<<< Close the socket processing (CALL “SOCKET.FN3 28) >>>>>
IF (WERR<>&h105) AND (WERR<>&h106) AND (WERR<>&h108) THEN
STATUS% = 2
GOTO TCP.SOCKET
ENDIF
ENDIF
IF STATUS% > 1 THEN
'<<<<< Disconnect TCP/IP communications pathway processing >>>>>
'<<<<< (CALL “SOCKET.FN3 43) >>>>>
IF (WERR<>&h105) THEN
STATUS% = 1
GOTO TCP.CONNECT
ENDIF
ENDIF
IF STATUS% > 0 THEN
'<<<<< Close communications device processing (CLOSE) >>>>>
STATUS% = 0
GOTO DEV.OPEN
ENDIF
ON ERROR GOTO 0
RETURN
ERRSUB2:
RESUME NEXT
Komentáře k této Příručce