Actually, does
acid = USERID()
work? That's pretty basic. If you wish to follow control block chains, you
might wish to consider TCBSENV. The Unix System Services syscalls are APIs,
not really commands. I left out a call to getpwuid in my example to map the
uid # to a RACF userid, though. It should have been
address syscall 'getuid'
uid = retval
address syscall 'getpwuid 'uid' pw.'
acid = pw.pw_name
Bill
On Wed, 18 May 2005 19:12:16 +0200, Jon Renton <[EMAIL PROTECTED]> wrote:
>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
