*DECK FCSNOSM 
USETEXT TEXTFCS 
      PROC FCSNOSM (CODE, LENGTH);
*CALL COPYRITE
# TITLE FCSNOSM - OUTPUT SUPERVISORY MESSAGE.                          #
  
      BEGIN                            # FCSNOSM                       #
  
# 
**    FCSNOSM - OUTPUT SUPERVISORY MESSAGE. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE DISPATCHES A SUPERVISORY MESSAGE TO THE NETWORK. 
* 
*     PROC FCSNOSM (CODE, LENGTH) 
* 
*     ENTRY    CODE      = PRIMARY AND SECONDARY FUNCTION CODE. 
*              LENGTH    = LENGTH OF SUPERVISORY MESSAGE. 
*              P<APSM>   = PTR TO OUTPUT SUPERVISORY MESSAGE (*OUTBUF*) 
* 
*     EXIT     SUPERVISORY MESSAGE DISPATCHED TO NETWORK. 
*              P<ABH>   = PTR TO OUTPUT SUPERVISORY MESSAGE ABH.
* 
*     NOTES    THE SUPERVISORY MESSAGE MAY NOT BE TRANSFERRED TO THE
*              NETWORK UPON EXIT OF THIS PROCEDURE. THE WORKLIST MAY
*              NEED FLUSHING VIA A *NETWAIT* CALL.
* 
*     METHOD   SET UP THE APPLICATION BLOCK HEADER AND COMMON FIELDS IN 
*              THE SUPERVISORY MESSAGE , AND DISPATCH THE SUPERVISORY 
*              MESSAGE. 
* 
# 
  
# 
****  PROC FCSNOSM - XREF LIST
# 
      XREF
        BEGIN 
        PROC NETPUT;                   # OUTPUT A MESSAGE              #
        END 
# 
****
# 
      ITEM CODE          U;            # PRIMARY + SECONDARY FUNCT CODE#
      ITEM LENGTH        U;            # LENGTH OF SUPERVISORY MESSAGE #
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      PFCSFC[0] = CODE;                # STORE PFC AND SFC 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                              # FCSNOSM                       #
  
      TERM
