*DECK FFSSPFN 
USETEXT TEXTFFS 
      PROC FFSSPFN; 
*CALL COPYRITE
# TITLE FFSSPFN - PROCESS FNT SWITCHING.                               #
  
      BEGIN                            # FFSSPFN                       #
# 
**    FFSSPFN  PROCESS FNT SWITCHING. 
* 
*     A. LIM                           88/03/07 
* 
* 
*     PROC FFSSPFN
* 
*     ENTRY    NONE.
* 
*     EXIT     P<APSM> POINTS AT *OUTBUF*.
*              FNT/DSM SM SENT. 
* 
*     METHOD   FORMAT FNT/DSM SM AND CALL *FFSOSMG* TO SEND IT TO 
*              THE NETWORK. 
# 
  
# 
****  PROC FFSSPFN - XREF LIST
# 
      XREF
        BEGIN 
        PROC FFSOSMG;                  # SEND SUPERVISORY MESSAGE      #
        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          #
  
      FNTJSN[0]  = CSJSN$JSN[0];       # CTRL STATEMENT'S JSN          #
      FNTMSAP[0] = "FTP    ";          # CTRL STATEMENT'S APPL NAME    #
      FFSOSMG(FNTDSM, LFNTS);          # SEND THE SM                   #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSSPFN                       #
  
      TERM
