*DECK NS$FEC
USETEXT ERR$NS
  
FUNC NS$FEC(ERC,DEC)U;       # FORMAT ERROR CODE                       #
  
# TITLE NS$FEC - FORMAT ERROR CODE.    #
  
      BEGIN    # NS$FEC # 
# 
**    NS$FEC - FORMAT ERROR CODE. 
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE FORMATS THE ERROR CODE.
* 
*     FUNC NS$FEC(ERC,DEC)
* 
*     ENTRY:  
*       ERC = ERROR CODE. 
*       DEC = DETAIL ERROR CODE.
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       FORMATS THE ERROR WORD BY SETTING THE ERROR CODE AND
*       DETAIL ERROR CODE.
* 
# 
  
      ITEM ERC        U;     # ERROR CODE                              #
      ITEM DEC        U;     # DETAIL ERROR CODE                       #
  
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE PROCEDURE CALL                    #
        END 
      $END
  
      ITEM ERRWORD   U = 0;  # ERROR WORD                              #
  
  
CONTROL EJECT;
  
      $BEGIN
      NS$DBG("FEC");         # TRACE CALL                              #
      $END
  
      P<ERRORWORD> = LOC(ERRWORD);
      ERRW$EC[0] = ERC;      # SET ERROR CODE                          #
      ERRW$DEC[0] = DEC;     # SET DETAIL ERROR CODE                   #
      NS$FEC = ERRW$WORD[0];
  
      RETURN; 
      END   # NS$FEC #
      TERM