*DECK,DONE
USETEXT MISC$ 
USETEXT TSB$COM 
USETEXT ACN$COM 
USETEXT GLOBALI 
USETEXT RBF$COM 
      PROC DONE;
      BEGIN # DONE #
*IF DEF,IMS 
 #
*1DC  DONE
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DONE                B. M. WEST          7 MARCH 1977 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        TRANSFERS CONNECTION TO ITS DESTINATION CHAIN/MODULE ONCE THE
*        COMPLETE FLAG OF THE COMMON CONTROL BLOCK WORD IS SET, 
* 
*     3. METHOD USED. 
*        IF CCB$COMPLETE SET THEN REMOVE THE CONNECTION FROM THE EVENT
*        CHAIN AND LINK IT TO ITS DESTINATION CHAIN AND RETURN ELSE 
*        RETURN.
* 
*     4. ENTRY PARAMETERS.
*         ACN - APPLICATION CONNECTION NUMBER (GLOBAL ITEM).
* 
*     5. EXIT PARAMETERS. NONE. 
* 
*     6. COMDECKS USED. 
*        RBF$COM
*        TSBMDEFS 
*        TSBMBASE 
* 
*     7. ROUTINES CALLED. 
*          REMOVE 
*          LINK 
* 
*     8. DAYFILE MESSAGES. NONE.
* 
 #
*ENDIF
  
      XREF PROC LINK;        # LINK ACN TO CHAIN                       #
      XREF PROC REMOVE;      # REMOVE ACN FROM CHAIN                   #
# 
      SET UP COMMON CONTROL BLOCK TABLE 
# 
      P<CCBHDR> = ADDRESS [ACN$CB[ACN]];
      IF CCB$COMPLETE           # IF EVENT COMPLETE MOVE THE CONNECTION#
      THEN                      # TO ITS DESTINATION CHAIN, ZERO OUT   #
        BEGIN                   # EVENT PROCESSOR ADDRESS, AND SET     #
        CCB$COMPLETE = FALSE;   # THE COMPLETE FLAG FALSE              #
        REMOVE (CHAINS"EVENT"); 
        LINK (ACN$CHAIN [ACN],NOEVENT); 
        END 
      ELSE
        SYSACT = TRUE;                     #INDIRECT PP ACTIVITY       #
      RETURN; 
      END # DONE WITH DONE #
      TERM; 
