*DECK FFSSSNA 
USETEXT TEXTFFS 
      PROC FFSSSNA; 
*CALL COPYRITE
# TITLE FFSSSNA - SPAWN NEW APPLICATION.                               #
  
      BEGIN                            # FFSSSNA                       #
# 
**    FFSSSNA  SPAWN NEW APPLICATION. 
* 
*     A. LIM                           88/03/07 
* 
* 
*     PROC FFSSSNA
* 
*     ENTRY    NONE.
* 
*     EXIT     P<APSM> POINTS AT *OUTBUF*.
*              FNT/DSM SM SENT. 
*              SAF SAR
*     METHOD   FORMAT SAF/SAR SM AND CALL *FFSOSMG* TO SEND IT TO 
*              THE NETWORK. 
# 
  
# 
****  PROC FFSSSNA - XREF LIST
# 
      XREF
        BEGIN 
        PROC FFSOSMG;                  # SEND SUPERVISORY MESSAGE      #
        PROC NETCHEK;                  # FORCE WORKLIST TRANSFER TO NIP#
        END 
# 
****
# 
  
      CONTROL EJECT;
# 
**    START MAIN PROCEDURE
# 
  
      P<APSM>    =  LOC(OUTBUF);       # POINT SM BASED ARRAY AT OUTBUF#
      SPMSG0[0]  = 0;                  # ZERO OUT FIRST WORD           #
      SPMSG1[0]  = 0;                  # ZERO OUT SECOND WORD          #
  
      SAFNAME[0] = "FTPS   ";          # PRESET TO SERVER MODE         #
      IF EPTFLAG EQ FTPC$ 
      THEN
        BEGIN                          # IN CLIENT MODE                #
        SAFNAME[0] = "FTPI   "; 
        END 
  
      FFSOSMG(SAFSAR, LSAF);           # SEND THE SM                   #
  
      NETCHEK;                         # FORCE WORKLIST TRANSFER TO NIP#
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSSSNA                       #
  
      TERM
