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
