I was hoping to use base MVS services / control blocks to find the information rather than relying on USS commands! Jon
-----Urspr�ngliche Nachricht----- Von: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Im Auftrag von Big Iron Gesendet: Mittwoch, 18. Mai 2005 12:27 An: [email protected] Betreff: Re: Finding the real RACF User In a USS environment, you should be able to use address syscall 'getuid' acid = retval I haven't tried this in the environment that you describe. You may wish to post your inquiry to MVS-OE if that doesn't work for you. You can find the archives and sign up instructions at http://www2.marist.edu/htbin/wlvindex?mvs-oe Bill On Wed, 18 May 2005 11:24:46 +0200, John Renton (improvIT Consulting GmbH) <[EMAIL PROTECTED]> wrote: >Hello, > >I have a slightly off topic question. I am running a rexx within USS as >a subtask (thread) of a java process. The thread has been started with >a different user (ie from the parent task). This all works fine. I am >now in the rexx and tried establishing the userid under which I am >running using the REXX function USERID(). The function returns the >userid of the parent task and not the user of the thread I am running under. > >I received the following suggestion from the TSO-REXX listserv: > >ascbstor = storage(c2x(storage(224,4)),140) asxbstor = >storage(c2x(substr(ascbstor,109,4)),8) >@tcb = c2x(substr(asxbstor,5)) >@jscb = c2x(right(storage(@tcb,x2d(b4)+4),4)) >@ssib = c2x(right(storage(@jscb,x2d(13c)+4),4)) >@sjb = c2x(right(storage(@ssib,x2d(20)+4),4)) >@jct = c2x(right(storage(@sjb,x2d(24)+4),4)) >parse value(storage(@jct,x2d(2c0))) with 289 jobid 297 443 acid 451 > >Unfortunate ACID does not contain the required value. > >The value I am trying to find corresponds (for example) to the user >shown in >the system >log when a RACF access error occurs. > >Now my question - does anyone know where or how I can find the user of >the subtask? The solution could be either in rexx or assembler. > >Many thanks. >Jon > ---------------------------------------------------------------------- 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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.11 - Release Date: 16.05.2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.11 - Release Date: 16.05.2005 ---------------------------------------------------------------------- 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
