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