Table of Contents

IPIDOSM

Table Of Contents

  • [00003] PROC IPIDOSM (CODE, LENGTH)
  • [00005] IPIDOSM - DISPATCH OUTPUT SUPERVISORY MESSAGE
  • [00038] PROC NETPUT

Source Code

IPIDOSM.txt 
  1. *DECK IPIDOSM 
  2. USETEXT TEXTIPL 
  3.       PROC IPIDOSM (CODE, LENGTH);
  4. *CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
  5. # TITLE IPIDOSM - DISPATCH OUTPUT SUPERVISORY MESSAGE                  #
  6.  
  7.       BEGIN                            # IPIDOSM                       #
  8. # 
  9. ****  IPIDOSM  DISPATCH OUTPUT SUPERVISORY MESSAGE
  10. * 
  11. *     THIS PROCEDURE DIPATCHES A SUPERVISORY MESSAGE TO THE NETWORK.
  12. * 
  13. *     PROC IPIDOSM
  14. * 
  15. *     ENTRY    CODE       = PRIMARY AND SECONDARY FUNCTION CODES
  16. *              LENGTH     = LENGTH OF SUPERVISORY MESSAGE 
  17. *              P<APSM>    = POINTER TO OUTBUF WITH ALL FIELDS BUT 
  18. *                           PFC/SFC INITIALIZED 
  19. * 
  20. *     EXIT     SUPERVISORY MESSAGE DISPATCHED TO THE NETWORK
  21. *              P<ABH>     = POINTER TO OUTPUT SUPERVISORY MESSAGE HEADER
  22. * 
  23. *     NOTES    THE SUPERVISORY MESSAGE MAY NOT BE TRANSFERRED TO THE
  24. *              NETWORK UPON EXIT OF THIS PROCEDURE.  THE WORKLIST MAY 
  25. *              NEED FLUSHING VIA A *NETWAIT* CALL.
  26. * 
  27. *     METHOD   SET UP THE APPLICATION BLOCK HEADER AND COMMON FIELDS IN 
  28. *              THE SUPERVISORY MESSAGE, AND CALL *NETPUT* TO DISPATCH THE 
  29. *              SUPERVISORY MESSAGE. 
  30. * 
  31. # 
  32.  
  33. # 
  34. ****  PROC IPIDOSM - XREF LIST
  35. # 
  36.       XREF
  37.         BEGIN 
  38.         PROC NETPUT;     # OUTPUT A MESSAGE TO NETWORK                 #
  39.         END 
  40. # 
  41. **
  42. # 
  43.       ITEM CODE               U;       # PRIMARY/SECONDARY FUNCTION CD #
  44.       ITEM LENGTH             U;       # LENGTH OF SUPERVISORY MESSAGE #
  45.       CONTROL EJECT;
  46. # 
  47. ****  START MAIN PROCEDURE
  48. # 
  49.  
  50.       PFCSFC [0] = CODE;               # STORE PFC AND SFC IN SM       #
  51.       P<ABH> = LOC (SABH);             # BASE ABH POINTER              #
  52.       ABHTLC [0] = LENGTH;             # STORE LENGTH IN ABH           #
  53.  
  54.       NETPUT (SABH, OUTBUF);           # SEND SUPERVISORY MESSAGE      #
  55.  
  56.       RETURN;                          # RETURN TO CALLER              #
  57.  
  58.       END                              # IPIDOSM                       #
  59.  
  60.       TERM