c eval sock = socket(AF_INET: SOCK_STREAM: c IPPROTO_IP) c if sock < 0 c eval msg = 'Error calling socket()!' c dsply msg c return c endif
c Eval $connect = false c 1 Do 10 c Eval RC = connect(sock: p_connto: addrlen) c If RC < 0 *c eval msg = 'Not connected...' *c dsply msg C call 'DELAY' C Else c Eval $connect = true c eval msg = 'Connected!' c dsply msg C leave C endif c Enddo
After the above loop I still have a RC that is -1. Any ideas?