function
| Library: TCP/IP client and server support (OMTCP legacy, OmniMark versions 6.0.2 - 7.0) Include: omtcp.xin | Returns: | 
define external integer function tcp-port
      value tcp-service Service
Argument definitions
Use tcp-port to learn which port number the TCP service object listens on for incoming connections.
You must include the following line at the beginning of your OmniMark program:
include "omtcp.xin"
Service must represent an existing service (else external exception TCP05).
This API is particularly useful when you call tcp-create-service without specifying a port.
local tcp-service Demo local integer Port set Demo to tcp-create-service set Port to tcp-port Demo output "The selected service port for Demo is %d(Port)%n"