RE: Name of the caller in RPG400

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: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Dimitri Efimov
Sent: Tuesday, May 29, 2001 8:17 AM
To: MIDRANGE-L@midrange.com
Subject: Name of the caller in RPG400



Is possible to get the name of the caller PGM in RPGLE program?

Anybody can provide with example?

Dmitri Efimov

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

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