It's in the VMDBK, field = VMDALGID
Rob van der Heij sent (to the list?, or me?) a copy of his nifty local CP command so that any user can display who AUTOLOGed them. Find my copy below (updated for our standards - you'll probably want to make some file ID changes). This works on our z/VM 5.1.0 and VM/ESA 2.4.0 systems.
Mike Walter
Hewitt Associates
The opinions expressed herein are mine alone, not my employer's.
* * * Top of File * * *
*Date: Wed, 31 Mar 1999 20:28:21 UTC
*Reply-To: VM/ESA Discussions <[EMAIL PROTECTED]>
*Sender: VM/ESA Discussions <[EMAIL PROTECTED]>
*From: Rob van der Heij <[EMAIL PROTECTED]>
*Subject: Re: Newbie Needs Help! :)
*
*
* Source: Based on code kindly sent by Rob van der Heij
*
* Exit assembly:
* --------------
* Good HLASM command (both lines!):
* VMFHLASM haxaus ZVMOR CP (DISK OUTMODE E LOGMOD ASM HL
* HLASM PCONTROL(DATA) SYSPARM(SUP) EHLASM
*
* HLASM opts:
* FLAG(PAGE0) issue warning ASMA309W when operand
* resolves to baseless address and a base
* and displacement is expected.
* PCONTROL(DATA) expands literals to full length.
* SYSPARM(SUP) suppresses printing of COPY and MACROs
* EHLASM opts.
*
* Exit installation:
* ------------------
* Copy HAXQAU TRS080HP to CF1 and CF2 disks.
*
* Place these statements into SYSTEM CONFIG:
* CPXLOAD HAXQAU TRS080HP NONMP NODELay NOCONtrol TEMPorary LEt
* DEFINE CMD Query SUBCmd AUTOUSER ABBRevlength 4 ENable ,
* EPName HAXQAUEP PRIVclasses G IBMclass G
*
*----------------------------------------------------------------------
QAU TITLE 'RS0080HP - CP QUERY AUTOUSER command.'
ISEQ 73,80 Validate sequencing of input
HCPCMPID COMPID=HAX
COPY HCPOPTNS
*
MACRO
MACRO
&LABEL HAXMDLAT &EPNAME
&LABEL MDLATHDR &EPNAME
MDLATENT HAXQAU,MODATTR=(RES,MP,DYN),CPXLOAD=YES
MDLATTLR
MEXIT
MEND
*
HAXQAU HCPPROLG ATTR=(RESIDENT,REENTERABLE,INDIRECTCALL), ¢
COPYRID='V1R1.0 HAXAUX H.A. "CP Q AUTOUSER" ', ¢
'command - z/VM 510', ¢
BASE=(R12)
COPY HCPVMDBK Virt Mach def block
COPY HCPCSLPL Console parameter list
COPY HCPEQUAT General equates
COPY HCPPFXPG Host prefix page
COPY HCPSAVBK Savearea block
HCPUSING VMDBK,R11
HCPUSING SAVBK,R13
HCPUSING PFXPG,R0
EJECT
*
HAXQAUEP HCPENTER CALL,SAVE=DYNAMIC
HCPCONSL WRITE,DATA=""
HCPEXIT EP=(HAXQAUEP),SETCC=NO
EJECT
*
HCPDROP R0
HCPDROP R11
HCPDROP R13
HCPEPILG
END
* * * End of File * * *
| "James G. Stracka"
<[EMAIL PROTECTED]>
Sent by: "VM/ESA and z/VM Discussions" <[email protected]> 12/01/2005 01:52 PM
|
|
Does anyone remember how an SVM can tell what id XAUTOLOGed it?
I want an SVM to be autologged by various ids and when it has completed
the task, send a MSG or SMSG to the id that XAUTOLOGed it.
Yes, I know that this is contained in the VM:Secure directory.
I believe it is in the VMBLOK somewhere. I thought we had an EXEC here
that did that query but cannot remember its name.
Jim
--------------------------------------------------------
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/
--------------------------------------------------------
The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited.
