Re: Who XAUTOLOGed Me?

[Schuh, Richard]

This seems to fit in the same category as the BYUSER. If we can QUERY BYUSER userid, then it would seem like we also ought to be able to have a query for this or have QUERY BYUSER extended to respond “AUTOBY userid” when applicable. Maybe we could put it on the wish list for the next time someone is messing with the QUERY command. It doesn’t seem major enough to call for a requirement.   -----Original Message----- From: VM/ESA and z/VM Discussions [mailto:[EMAIL PROTECTED]On Behalf Of Mike Walter Sent: Thursday, December 01, 2005 12:42 PM To: VMESA-L@LISTSERV.UARK.EDU Subject: Re: Who XAUTOLOGed Me?   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" <VMESA-L@LISTSERV.UARK.EDU> 12/01/2005 01:52 PM Please respond to "VM/ESA and z/VM Discussions" <VMESA-L@LISTSERV.UARK.EDU> To VMESA-L@LISTSERV.UARK.EDU cc   Subject Who XAUTOLOGed Me?   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.