*DECK REQUECS 
USETEXT COMCBEG 
USETEXT COMRAPL 
USETEXT COMRQUE 
PROC REQUECS; 
# TITLE REQUECS - GRACEFULLY FREES ENTRIES FOR CONNECTION SHUTDOWN.  #
  
      BEGIN  # REQUECS #
  
# 
**    REQUECS - GRACEFULLY FREES ENTRIES FOR CONNECTION SHUTDOWN. 
* 
*     REQUECS REQUEUES A QUEUE ENTRY FOR A CONNECTION THAT IS SHUTTING
*     DOWN. 
* 
*     PROC REQUECS. 
* 
*     ENTRY   - APL$HEADER IS BASED ARRAY POINTING TO APPLICATION TABLE.
*               QU$HEADER IS BASED ARRAY CONTAINING QUEUE ENTRY.
* 
*     EXIT    - QUEUE ENTRY REQUEUED. 
* 
*     PROCESS - IF QUEUE TYPE IS UCP REQUEST
*               THEN: 
*                 IF NETXFR FUNCTION
*                 THEN: 
*                   SET FIP REQUEST ADDRESS TO FET ADDRESS. 
                  INITIATE NSUP REPLY.
*               ELSE: 
*                 FREE QUEUE ENTRY. 
*               RETURN. 
* 
* 
****  PROC REQUECS - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC FREE;                   # FREE QUEUE ENTRY # 
        PROC RTNNSUP;                # RETURN NSUP REPLY #
        END 
  
# 
****  PROC REQUECS - XREF LIST END. 
# 
  
  
CONTROL EJECT;
  
      IF QU$TYPE EQ QT$UCPREQ 
      THEN
        BEGIN 
        P<APL$HEADER> = QU$APLADR;
        IF QU$FUNCT EQ UCP$NETXFR 
        THEN
          BEGIN 
          QU$UCPA = QU$FETADR;     # SET FET COMPLETE # 
          END 
  
        RTNNSUP;
        END 
  
      ELSE
        BEGIN 
        FREE; 
        END 
  
      RETURN; 
      END  # REQUECS #
  
      TERM
