*DECK IPIDOSM 
USETEXT TEXTIPL 
      PROC IPIDOSM (CODE, LENGTH);
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
# TITLE IPIDOSM - DISPATCH OUTPUT SUPERVISORY MESSAGE                  #
  
      BEGIN                            # IPIDOSM                       #
# 
****  IPIDOSM  DISPATCH OUTPUT SUPERVISORY MESSAGE
* 
*     THIS PROCEDURE DIPATCHES A SUPERVISORY MESSAGE TO THE NETWORK.
* 
*     PROC IPIDOSM
* 
*     ENTRY    CODE       = PRIMARY AND SECONDARY FUNCTION CODES
*              LENGTH     = LENGTH OF SUPERVISORY MESSAGE 
*              P<APSM>    = POINTER TO OUTBUF WITH ALL FIELDS BUT 
*                           PFC/SFC INITIALIZED 
* 
*     EXIT     SUPERVISORY MESSAGE DISPATCHED TO THE NETWORK
*              P<ABH>     = POINTER TO OUTPUT SUPERVISORY MESSAGE HEADER
* 
*     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 CALL *NETPUT* TO DISPATCH THE 
*              SUPERVISORY MESSAGE. 
* 
# 
  
# 
****  PROC IPIDOSM - XREF LIST
# 
      XREF
        BEGIN 
        PROC NETPUT;     # OUTPUT A MESSAGE TO NETWORK                 #
        END 
# 
**
# 
      ITEM CODE               U;       # PRIMARY/SECONDARY FUNCTION CD #
      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 [0] = LENGTH;             # STORE LENGTH IN ABH           #
  
      NETPUT (SABH, OUTBUF);           # SEND SUPERVISORY MESSAGE      #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # IPIDOSM                       #
  
      TERM