function
| Library: TCP/IP client and server support (OMTCP legacy, OmniMark versions 4 - 6.0.1) Include: omtcp.xin | Returns: True if the TCP service is open; false otherwise. | 
define external switch TCPServiceIsOpen
      value TCPService this-TCPService
as TCPServiceIsOpen
This function checks whether a TCP service is open, regardless of whether it's just been declared or is in error. It is always valid to call this function.
Argument:
Example
do unless TCPServiceIsOpen omdemo-service output "not open %n" done