*DECK FFSBCNE 
USETEXT TEXTFFS 
      FUNC FFSBCNE (CNTYPE) B;
*CALL COPYRITE
# TITLE FFSBCNE - CONNECTION EXISTS ?                                  #
  
      BEGIN                            # FFSBCNE                       #
# 
**    FFSBCNE - CONNECTION EXISTS ? 
* 
*     TET TRAN                         88/03/07 
* 
*     FFSBCNE IS A BOOLEAN FUNCTION. IT RETURNS TRUE IF THE QUERYING
*     CONNECTION (IDENTIFIED BY CNTYPE) CURRENTLY EXISTS, AND RETURNS 
*     FALSE OTHERWISE.
* 
*     FUNC FFSBCNE
* 
*     METHOD   CHECK ACN TABLE TO SEE IF THE ACN FIELD OF THE CORRESPON-
*              DING ENTRY IS ZERO. IF IT IS NON ZERO, THE CONNECTION
*              EXISTS AND VICE VERSA. 
* 
# 
  
      ITEM CNTYPE  S:CTYPE;              # CONNECTION TYPE             #
  
      CONTROL EJECT;
# 
**    START MAIN PROCEDURE
# 
  
      IF CNTYPE EQ S"CTCS"
      THEN
        BEGIN 
        FFSBCNE =  ACN$TCSTAT[CNTYPE] NQ 0; 
        END 
      ELSE
        BEGIN 
        FFSBCNE = ( ACN$STATE[CNTYPE] LAN (PENDING+ACTIVE) ) NQ 0;
        END 
  
      RETURN;                            # RETURN TO CALLER            #
  
      END                                # FFSBCNE                     #
  
      TERM
