EMS Manual

EMS Procedures
EMS Manual—426909-005
15-10
EMSADDTOKENS and EMSADDTOKENMAPS
Procedures
buffer on that procedure call is in an extended form that includes the ssid that you
specified.
EMSADDTOKENS and EMSADDTOKENMAPS Procedures
The EMSADDTOKENS and EMSADDTOKENMAPS procedures let you add one to
four tokens to an event-message buffer.
In TAL programs, use EMSADDTOKENS when supplying a token code for the
subject-token-id parameter. This eliminates the need to store the token code in a
temporary variable before passing it to EMSADDTOKENMAPS. You must use
EMSADDTOKENMAPS when supplying a token map.
Note: These procedures can be called from 32-bit and 64-bit programs.
In COBOL85 programs, use EMSADDTOKENMAPS through ENTER TAL. In TACL,
use #EMSGET.
status returned value
INT:value
is zero or an SPI error code. For a full list of SPI error numbers, see EMSGET and
EMSGETTKN Procedures on page 15-12.
buffer
INT .EXT64:ref:*
is the event-message buffer, which the caller must have allocated and initialized.
ssid
INT .EXT:ref:6
is a subsystem ID that qualifies the token code. If not supplied or equal to zero
(6*[0]), ssid defaults to one of the following:

If the current position is in a list, the subsystem ID of the current list

If the current position is not in a list, the subsystem ID in the event-message
header (ZSPI^TKN^SSID)
{ status := } { EMSADDTOKENS } ( buffer ! i/o
{ CALL } { EMSADDTOKENMAPS } , [ ssid ] ! i
, tkn-triplet ! i
[ , tkn-triplet ] ! i
[ , tkn-triplet ] ! i
[ , tkn-triplet ] ! i