RE: Newbie question - Getting the userid with RPGLE

["D.W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>]

Overwelmed does not come close to describing it...I appreciate
everyone's input and assistance, it was far more than I had expected.  

If this is how this list is, I can only say that even at 45 I am willing
and able to learn as much as I can from everybody.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Guy Henza
Sent: Wednesday, November 17, 2004 6:24 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Newbie question - Getting the userid with RPGLE


Hi Douglas,

I hope you're overwelmed with the response so far.  Here's even more 
information you can get on the user on the user using the QSYRUSRI API.

D SDS            SDS
D  User                 254    263
*
d USRI0300_Size   s             10i 0

Length receiver
D format          s              8
D errcod          ds
D  bytpro                       10i 0 INZ(256)

Bytes provided for E
D  bytava                       10i 0

Bytes available (0=n
D  msgid                         7

Exception id
D  rsrv1                         1

Reserved
D  msgdta                      240

Exception data

d USRI0300        ds

Receiver For QSYRUSR
d  RETBYT_U                     10i 0

Returned Bytes
d  AVABYT_U                     10i 0

Available Bytes
d  Usprf                        10

User Profile Name
d  Usr_Descr            199    248

User Description

* Retrieve the User   name
*
c                   eval      USRI0300_Size = %size(USRI0300)

c                   call (e)  'QSYRUSRI'

Retrieve User Desc
c                   parm                    USRI0300
c                   parm                    USRI0300_Size
c                   parm      'USRI0300'    format
c                   parm                    User
c                   parm                    ERRCOD

c                   seton                                        lr

Regards,

Guy Henza
guyhenza@xxxxxxxxxxx

>date: Mon, 15 Nov 2004 19:52:02 -0600
>from: "D.W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>
>subject: Newbie question - Getting the userid with RPGLE
>
>I am very new to RPG and I have been searching the net and 
>experts-exchange in an attempt to figure out how to acquire the userid 
>of the person signed in and running a program with RPG.
>
>I thought I could do it the same way as with a display file but that 
>did not work..
>
>Would someone provide me a tiny bit of assistance here or at least 
>point me in the right direction?
>
>Thanks,
>
>Douglas
>


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.