Re: Retrieve "real" username

[Alexei Pytel <pytel@xxxxxxxxxx>]

API QUSRJOBI, format JOBI0600, returns "current user profile" in position 
91.
For the C version, go to QUSRJOBI member in QSYSINC/H. See field 
Curr_Usrprf_Name in Qwc_JOBI0600_t structure.

You can also use Retrieve Current Attributes (QWCRTVCA) API or Retrieve 
Thread Attribute (QWTRTVTA) API to retrieve current user profile for the 
current thread in a multi-threaded job.

    Alexei




Peter.Colpaert@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/27/2006 05:59 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Retrieve "real" username






Simon,

Been there, done that, noticed that it's QUSER in both cases.

However, I found an example on midrange.com where the CPIAD02 message data 

is retrieved from the joblog to get the client's IP address.

As the username is in the same message, I've leeched the source and now it 

works.

Thanks anyway,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----



Simon Coulter <shc@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
27/01/2006 12:19
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Retrieve "real" username







On 27/01/2006, at 7:21 PM, Peter.Colpaert@xxxxxxxxx wrote:

> Is there a way in RPGLE to retrieve the profile of the user who is
> actually connected remotely (through JDBC, ODBC, maybe iSeriesNav or
> other)?

See positions 358 to 367 in the PSDS.

Also see the QUSRJOBI API.

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         AS/400 Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------