*DECK GETLEV7 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
PROC GETLEV7; 
# TITLE GETLEV7 - GET LEVEL 7 COMMAND.  # 
  
      BEGIN  # GETLEV7 #
  
# 
**    GETLEV7 - GET LEVEL 7 MESSAGE 
* 
*     GETLEV7 FETCHES A LEVEL 7 MESSAGE IF THERE IS ONE AVAILABLE.
* 
*     PROC GETLEV7
* 
*     ENTRY      <FTTENT> = FWA FTT ENTRY.
* 
*     EXIT       NONE.
* 
*     PROCESS    IF BIT I OF NSUP IS SET, 
*                THEN:  
*                  CALL CALLNG TO GET A POSSIBLE LEVEL 7 COMMAND. 
*                  CALL PLEV7M TO PROCESS THE COMMAND.
* 
****  PROC GETLEV7 - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC CALLNG;               #  CALL NETGET # 
        PROC PLEV7M;               #  PROCESS LEVEL 7 COMMAND # 
        END 
  
# 
****  PROC GETLEV7 XREF LIST END. 
# 
                                               CONTROL EJECT; 
      IF NSUP$IBIT
      THEN
        BEGIN  #  GET LEVEL  7  MESSAGE  #
        HWI7$WORD[0]  =  0;          # RHF REQUIRES NULL HEADER WORD #
        RRB$ACN[0]  =  FTTACN;
        SSCXRECALL[0] = TRUE; 
        CALLNG (HWI7MSG, TAI7MSG);   # NETGET THE LEVEL 7 COMMAND # 
        SSCXRECALL[0] = FALSE;
        PLEV7M;                      # PROCESS LEVEL 7 COMMAND #
        END 
  
      END    # GETLEV7 #
      TERM
