*DECK GENWAIT 
USETEXT COMCBEG 
USETEXT COMRAPL 
USETEXT COMRQUE 
PROC GENWAIT; 
# TITLE  GENWAIT - GENERATE NETWAIT UCP REPLY QUEUE ENTRY. #
  
      BEGIN   # GENWAIT # 
  
# 
**    GENWAIT - GENERATE NETWAIT UCP REPLY QUEUE ENTRY. 
* 
*     RECONSTRUCTS NETWAIT QUEUE ENTRY FROM INFORMATION IN THE
*     APPLICATION TABLE.
* 
*     PROC GENWAIT. 
* 
*     ENTRY   - APPLICATION TABLE CONTAINS NETWAIT INFORMATION. 
*               APL$HEADER IS BASED ARRAY CONTAINING APPLICATION TABLE. 
* 
*     EXIT    - QU$ADDRESS IS BASED ARRAY CONTAINING NETWAIT ENTRY. 
* 
*     PROCESS - GET FREE QUEUE ENTRY. 
*               SETUP QUEUE ENTRY FOR NETWAIT UCP REPLY.
*               CLEAR NETWAIT FLAGS IN APPLICATION TABLE. 
*               RETURN
# 
  
# 
****  PROC GENWAIT - XREF LIST BEGIN. 
# 
      XREF
        BEGIN 
        PROC GETFREE;                # GET FREE QUEUE ENTRY # 
        END 
# 
****  PROC GENWAIT - XREF LIST END. 
# 
  
CONTROL EJECT;
      GETFREE;
  
      QU$TYPE = QT$UCPREQ;
      QU$FUNCT = UCP$NETWAT;
      QU$UCPA = APL$WAIT; 
      QU$APLADR = P<APL$HEADER>;
      QU$CHARGE = 0;
  
      APL$WCMA = FALSE; 
      APL$WAIT = 0; 
      RETURN; 
      END  # GENWAIT #
  
      TERM
