I use the following code:
/* REXX */
/* This routine: QAUTOLGR EXEC
*/
/* Written by: James G. Stracka
*/
/* Date written: 02 Dec 2005
*/
/*
*/
/* Purpose: To find out who autologged them.
*/
/*
*/
/* History:
*/
/*
*/
/* dd mmm yyyy Comments here... INI
*/
/*
*/
/* *******************************************************************
*/
parse upper source . invocation program . . synonym .
/* source = environment invocation program type mode synonym address
*/
address "COMMAND"
numeric digits 12
/* The location of the AUTOLOGGing userid is x'210' from the start of
*/
/* the VMDBK, field VMDALGID
*/
vmdalgid = x2d(210)
"PIPE CP LOCATE" userid() "| SPECS WORD 3 | VAR LOC_ADDR"
auto_addr = d2x(x2d(loc_addr) + vmdalgid)
"PIPE CP DISPLAY HT"auto_addr".8 | SPECS WORD 7 | VAR INFO"
autologger = strip(substr(info,2,8),"T")
if invocation = "FUNCTION" then return autologger
else do
say autologger
exit
end
-----Original Message-----
From: VM/ESA and z/VM Discussions [mailto:[EMAIL PROTECTED] On
Behalf Of Steve Gentry
Sent: Thursday, March 02, 2006 9:02 AM
To: VMESA-L@LISTSERV.UARK.EDU
Subject: AUTOLOG/XAUTOLOG
Hello. I think this has come up in a prior discussion. I need to know
what userid AUTOLOG'd or XAUTOLOG'd a user from that userid.
Reason being is that I need to send messages(using REXX) back to the
user that issued the AUTOLOG/XAUTOLOG command.
For example if USERA autologs USERB, I want USERB to send messages back
to USERA as to the progress of what is
running on USERB. I know CP/CMS/VM will send a message that an
AUTOLOG/IPL was issued but I need to send other messages
using REXX
Thanks,
Steve G.
--------------------------------------------------------
If you are not an intended recipient of this e-mail, please notify the sender,
delete it and do not read, act upon, print, disclose, copy, retain or
redistribute it. Click here for important additional terms relating to this
e-mail. http://www.ml.com/email_terms/
--------------------------------------------------------
