*DECK FLUSH 
USETEXT COMCBEG 
USETEXT COMRNET 
USETEXT COMRQUE 
USETEXT COMRSTA 
PROC FLUSH((PATHID)); 
# TITLE FLUSH - FLUSH PATH. # 
  
      BEGIN  # FLUSH #
  
# 
**    FLUSH - FLUSH PATH. 
* 
*     FLUSH INITIATES FLUSHING OF A NAD PATH BASED ON PATHID. 
* 
*     PROC FLUSH(PATHID). 
* 
*     ENTRY   -  PATHID IS PATH ID OF PATH TO FLUSH.
* 
*     EXIT    -  NDR HAS COMPLETED THE PATH FLUSH REQUEST.
* 
*     PROCESS -  OBTAIN A FREE QUEUE ENTRY
*                SET UP FLUSH PATH QUEUE ENTRY
*                SET UP COMPLETION STATUS WORD
*                MAKE REQUEST TO FLUSH PATH 
*                WAIT FOR REQUEST TO COMPLETE 
*                RETURN 
* 
* 
# 
  
      ITEM PATHID I;                 # PATH ID OF PATH TO BE FLUSHED #
  
# 
****  PROC FLUSH - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC GETFREE;                # OBTAIN FREE QUEUE ENTRY #
        PROC NADREQ;                 # MAKE NAD REQUEST # 
        PROC WAIT;                   # WAIT FOR REQUEST COMPLETION #
        END 
  
# 
****  PROC FLUSH - XREF LIST END. 
# 
  
  
      ITEM COMPSTAT I;               # COMPLETION STATUS WORD # 
  
CONTROL EJECT;
  
      GETFREE;
      QU$PATHID = PATHID; 
      QU$ACN    = 0;
      QU$APPL   = 0;
      QU$CMPST = LOC(COMPSTAT); 
      QU$TYPE   = QT$FLUSH; 
      COMPSTAT  = 0;
      NADREQ(PTH$NADORD); 
      WAIT(LOC(COMPSTAT));
  
      RETURN; 
      END  # FLUSH #
  
      TERM
