NET/MASTER Network Control Language (NCL) Programmer's Guide

Sending a Message to EMSPROC
Developing System-Level NCL Procedures
106160 Tandem Computers Incorporated 17–21
This table shows that the text, specified by the TEXT operand (ABC), is placed in
&$EMS.SPI.TANDEM.ZEMS_TKN_TEXT, and also in &$EMS.TEXT prefixed by the
subsystem identifier (NNM) and the event number (9999).
If you do not use these operands, you must first explicitly assign the text, subsystem
identifier, event number, and subject mark to an MDO variable, which you create
using the ASSIGN verb, to achieve the same result, as the following code segment
shows:
…
ASSIGN MDO=&abc. MAP=$MSG
&abc.TEXT = “NNM9999 ABC”
&abc.SPI.TANDEM.ZSPI_TKN_TEXT = “ABC”
&abc.SPI.TANDEM.ZSPI_TKN_SSID = “TANDEM.NNM.D30”
&abc.SPI.TANDEM.ZSPI_TKN_EVENTNUMBER.# = “9999”
&abc.SPI.TANDEM.ZSPI_TKN_SUBJECT_MARK = “TANDEM.ZEMS_TKN_TEXT{1}”
EMSALERT MDO=&abc.
…
This code segment creates an MDO variable, &ABC., mapped by the map $MSG,
explicitly assigns values to the MDO variable, and sends the message using the
EMSALERT verb.
Note If you do not specify a value in &ABC.TEXT, since the value in &ABC.SPI.TANDEM.ZSPI_TKN_TEXT is
not placed in &ABC.TEXT, the result will be a blank message when the message arrives at EMSPROC.
The following table summarizes the contents of the message when it arrives at
NonStop NET/MASTER MS and is read by the EMSREAD verb:
Token Value
&$EMS.TEXT NNM9999 ABC
&$EMS.SOURCE Varies.
&$EMS.SPI.TANDEM.ZEMS_TKN_TEXT ABC
&$EMS.SPI.TANDEM.ZSPI_TKN_SSID TANDEM.NNM.D30
&$EMS.SPI.TANDEM.ZEMS_TKN_EVENTNUMBER.# 9999
&$EMS.SPI.TANDEM.ZEMS_TKN_SUBJECT_MARK TANDEM.ZEMS_TKN_TEXT{1}
This table shows that, when you explicitly assign values, the message you send using
EMSALERT is the message you receive when the message is read.
The following three NCL procedures show the results of sending a message using the
EMSALERT verb. Values are explicitly assigned to an MDO variable before the
message is sent.
The first NCL procedure is an EMSPROC procedure called ZEX1706N. It is designed
to allow all messages that arrive at your NonStop NET/MASTER MS system to pass
through unchanged.