define external TCPService function TCPServiceOpen
       at value counter port-number optional initial {0}
  as TCPServiceOpen

This function is used by a server program to create a TCP service port on which it will listen for incoming client-initiated service requests. If no port number is given, then TCPServiceOpen chooses an available port number for you. In this case, TCPServiceGetPort can be used to learn which port was chosen.

If TCPServiceOpen fails, it still returns a TCP service object. This failure object is in error and is closed.

Argument:

• "port-number" is the port number on which the TCP service object is created.

Example:

  set omdemo-service to TCPServceOpen at 5600