*DECK RTNNSUP 
USETEXT COMCBEG 
USETEXT COMRQUE 
PROC RTNNSUP; 
# TITLE RTNNSUP - RETURN NSUP REPLY.  # 
  
      BEGIN  # RTNNSUP #
  
# 
**    RTNNSUP - RETURN NSUP REPLY.
* 
*     RETURN NSUP REPLY TO THE UCP. 
* 
*     PROC RTNNSUP. 
* 
*     ENTRY   - QU$ADDRESS IS BASED ARRAY CONTAINING QUEUE ENTRY
*                 WITH UCP REQUEST ADDRESS AND CHARGE INITIALIZED.
*               APL$HEADER IS BASED ARRAY POINTING TO APPLICATION TABLE.
* 
*     EXIT    - QUEUE ENTRY IS PROPERLY DISPOSED. 
* 
*     PROCESS - SET QUEUE TYPE TO NSUP REPLY. 
*               INITIATE UCP REPLY. 
*               RETURN. 
# 
  
# 
****  PROC RTNNSUP - XREF LIST BEGIN. 
# 
      XREF
        BEGIN 
        PROC UCPRPLY;                # INITIATE UCP REPLY # 
        END 
  
# 
****  PROC RTNNSUP - XREF LIST END. 
# 
  
  
CONTROL EJECT;
  
      QU$TYPE = QT$UCPNSUP; 
      UCPRPLY;
      RETURN; 
      END  # RTNNSUP #
  
      TERM
