*DECK FFSSPSI 
USETEXT TEXTFFS 
      PROC FFSSPSI; 
*CALL COPYRITE
# TITLE FFSSPSI - PROCESS SHUT/INSD SUPERVISORY MESSAGE.               #
  
      BEGIN                            # FFSSPSI                       #
# 
**    FFSSPSI  PROCESS SHUT/INSD SUPERVISORY MESSAGE. 
* 
*     A. LIM                           88/01/88 
* 
*     THIS PROCEDURE PROCESSES A SHUT/INSD SUPERVISORY MESSAGE BY 
*     MAKING AN INDICATION FOR THE TCP LAYER ABOVE. 
* 
*     PROC FFSSPSI
* 
*     ENTRY    P<APSM> = PTR TO SUPERVISORY MESSAGE (*INPBUF*). 
* 
*     EXIT     *INDICATION* SET APPROPRIATELY FOR THE TCP LAYER.
* 
*     METHOD   IF THE SHUTDOWN REQUEST IS IMMEDIATE:  
*                SET INDICATION TO SHUTDOWN.
*              ELSE 
*                SET INDICATION TO IDLEDOWN.
# 
  
# 
****  PROC FFSSPSI - XREF LIST
# 
      XREF
        BEGIN 
        END 
# 
****
# 
  
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      IF SHUTF[0] 
      THEN
        BEGIN                          # IMMEDIATE SHUTDOWN REQUESTED  #
        IND$ICODE[INAMTCP$] = INAM"INSHUTDN"; 
        END 
      ELSE
        BEGIN                          # IDLE DOWN REQUESTED           #
        IND$ICODE[INAMTCP$] = INAM"INIDLEDN"; 
        END;
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSSPSI                       #
  
      TERM
