In one of our exits, we use TPUT with USERIDL=(15) where register 15
points to a user ID. You don't need to know the ASID. The code is fairly
old, predates some newer WTO enhancements for inserting text into
messages. WTO3 is moved into WTOAREA, then we move things into it to form
the message we want, and finally we TPUT it to the user. R15 in the real
exit is set by looping through a table of users that are authorized to
receive their notification via this method, but the point is that R0
points to the length, R1 points to the message text (I think WTOAREA+4
skips over some stuff needed by "real" WTO) and R15 points to the user ID
to receive the message.
If the user is signed on, the message is sent to them, interrupting
whatever they're doing. If they're not signed on, I believe it goes
nowhere (maybe their LOG file).
LA R15,SOMEUSER
TPUT2 EQU *
L R0,=A(WTO3MSGL) = MESSAGE LENGTH
LA R1,WTOAREA+4 -> MESSAGE
TPUT (1),(0),USERIDL=(15) SEND MESSAGE
=================== later on in the source ========================
WTOAREA DS 0F,XL128
WTO3 WTO '
',
ROUTCDE=(11),
DESC=6,
MF=L
WTO3L EQU *-WTO3
WTO3MSGL EQU (*-WTO3)-8
Tim Hare
Senior Systems Programmer
Florida Department of Transportation
(850) 414-4209
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
