Re: Program Status Data Structure: User name

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Rob,

That was in Midrange-L, with the subject "Name of the caller in RPG400".

I quote it here so it's in the RPG mail list also:

"It has been a while since I've used RPG/400 but if memory serves look at
positions 254 through 263 in the program status data structure for the user
Id.  In RPG/400 this will be the user id of the current user.

Current user and job initiator are not necessarily the same.  If a profile
switch was performed prior to calling your RPG/400 program positions 254
through 263 will contain the switched to profile not the job's initiator
user profile.  To obtain the job initiator's user profile you will have to
call a CL program that utilizes command RTVJOBA, or the QUSRJOBI API.

In ILE RPG current user profile is found in positions 358 through 367.
Positions 254 through 263 contain the job initiator's user profile.

Hope this helps.

--
Gary Monnier               garymon@powertechgroup.com
The PowerTech Group        253.872.7788
PowerLock Network Security www.400security.com"


----- Original Message -----
From: <rob@dekko.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, May 29, 2001 2:31 PM
Subject: Program Status Data Structure: User name


>
> I just saw an email today about the difference in retrieving user name
from
> the program status data structure from RPG/400 to RPGLE.  I lost the email
> and couldn't find that in the archives.  What was that?
>
> Rob Berendt
>
> ==================
> A smart person learns from their mistakes,
> but a wise person learns from OTHER peoples mistakes.
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---