*DECK FFSOSMG 
USETEXT TEXTFFS 
      PROC FFSOSMG (CODE, LENGTH);
*CALL COPYRITE
# TITLE FFSOSMG - OUTPUT SUPERVISORY MESSAGE.                          #
  
      BEGIN                            # FFSOSMG                       #
# 
**    FFSOSMG  OUTPUT SUPERVISORY MESSAGE.
* 
*     A. LIM                           88/01/24 
* 
*     THIS PROCEDURE DISPATCHES A SUPERVISORY MESSAGE TO THE NETWORK. 
* 
*     PROC FFSOSMG (CODE, LENGTH) 
* 
*     ENTRY    CODE    = PRIMARY AND SECONDARY FUNCTION CODE. 
*              LENGTH  = LENGTH OF SUPERVISORY MESSAGE. 
*              CURACN  = FILE SERVER CONNECTION NUMBER. 
*              P<APSM> = PTR TO OUTPUT SUPERVISORY MESSAGE (*OUTBUF*) 
* 
*     EXIT     SUPERVISORY MESSAGE DISPATCHED TO NETWORK. 
*              P<ABH> = PTR TO OUTPUT SUPERVISORY MESSAGE ABH.
* 
*     NOTES    IT IS ASSUMED THAT THE POSITION OF THE APPLICATION 
*              CONNECTION NUMBER FIELD IS THE SAME IN ALL SUPERVISORY 
*              MESSAGES SENT. 
* 
*     METHOD   SET UP THE APPLICATION BLOCK HEADER AND COMMON FIELDS IN 
*              THE SUPERVISORY MESSAGE , AND DISPATCH THE SUPERVISORY 
*              MESSAGE. 
* 
# 
  
# 
****  PROC FFSOSMG - XREF LIST
# 
      XREF
        BEGIN 
        PROC NETPUT;     # OUTPUT A MESSAGE ON A LOGICAL CONNECTION    #
        END 
# 
****
# 
      ITEM CODE          U;            # PRIMARY + SECONDARY FUNCT CODE#
      ITEM LENGTH        U;            # LENGTH OF SUPERVISORY MESSAGE #
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      P<APSM>   = LOC(OUTBUF);
      PFCSFC[0] = CODE;                # STORE PFC AND SFC IN SM       #
      SPACN[0]  = CURACN;              # STORE CONNECTION NUMBER IN SM #
      P<ABH>    = LOC (SABH);          # BASE ABH POINTER              #
      ABHTLC    = LENGTH;              # STORE LENGTH IN ABH           #
  
      NETPUT (SABH, OUTBUF);           # SEND THE SUPERVISORY MESSAGE  #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSOSMG                       #
  
      TERM
