Use this system macro to get the unique token for the current
transaction.
Format
- label
- A symbolic name can be assigned to the macro statement.
- TOKEN=token
- Gets the unique token for the current transaction, where token is
the symbolic name of a field or a register pointing to a field. The
field is an 8-byte storage area in which the token will be stored. If
you specify a register, the register must be enclosed in parentheses and in
the range R0-R7.
Entry Requirements
None.
Return Conditions
- Control is returned to the next sequential instruction (NSI).
- The storage area pointed to by the TOKEN parameter contains one of the
following:
- A nonzero unique transaction token for the current transaction in which
the entry control block (ECB) is running.
- A zero, which indicates that the ECB is not currently in an active
transaction.
- The contents of R14 and R15 cannot be predicted.
Programming Considerations
- This macro can be run on any I-stream.
- This macro does not verify if the ECB has the protection key to write to
the storage area where the token will be stored. The calling program
must ensure that the area specified with the TOKEN parameter can be
updated.
Examples
The following example gets the unique token for the current transaction and
stores the token in the area to which R5 points.
TMTKC TOKEN=(R5)