*DECK,WAIT
USETEXT CYBRDEF 
USETEXT MISC$ 
USETEXT ACN$COM 
USETEXT GLOBALI 
      PROC WAIT;
      BEGIN # WAIT #
*IF DEF,IMS 
 #
*1DC  WAIT
* 
*     1. PROC NAME           AUTHOR              DATE 
*        WAIT                B. M. WEST          4 APRIL 1977 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS EVENT PROCESSOR IS CALLED TO PREVENT A CONNECTION WHICH 
*        WISHES TO LINK ITSELF TO A MODULE BUT DOES HOT WISH TO BE
*        PROCESSED UNTIL THE NEXT PASS THROUGH RBF"S MAIN LOOP. 
*        THIS ALLOWS A MODULE TO LINK TO ITSELF BUT NOT BE PROCESSED
*        UNTIL THE NEXT MAIN LOOP PASS. 
* 
*     3. METHOD USED. 
*        THE CONNECTION IS REMOVED FROM THE EVENT CHAIN AND LINKED TO 
*        THE MODULE SPECIFIED BY ACN$MOD. 
* 
*     4. ENTRY PARAMETERS. NONE 
* 
*     5. EXIT PARAMETERS. NONE
* 
*     6. COMDECKS USED. 
*        RBF$COM
* 
*     7. ROUTINES CALLED. 
*        REMOVE, LINK 
* 
*     8. DAYFILE MESSAGES. NONE 
* 
 #
*ENDIF
  
      XREF PROC LINK;        # LINKS CONNECTION TO MODULE              #
      XREF PROC REMOVE;      # REMOVE CONNECTION FROM CHAIN            #
#                                                                      #
#     REMOVE CONNECTION FROM THE EVENT CHAIN                           #
#                                                                      #
      REMOVE (CHAINS"BACKGROUND");
#                                                                      #
#     LINK CONNECTION TO MODULE SPECIFIED IN ACN$MOD                   #
#                                                                      #
      LINK (ACN$CHAIN [ACN], NOEVENT);
      RETURN; 
      END   # WAIT #
      TERM; 
