RE: user profile

Maybe, in an older version, that was what is now *PROC ??
The following link is for 6.1 Info Center documentation:
http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/index.jsp?topic=/rzasd/sc092508167.htm

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dave
Sent: Thursday, June 21, 2012 2:31 AM
To: RPG programming on the IBM i / System i
Subject: Re: user profile

Obviously I can't use INZ(*USER) in my RPGIII, but I see this coded :

I SDS
I *PROGRAM @PGMID

I don't see any documentation for *PROGRAM. How does that work?




2012/6/21 Barbara Morris <bmorris@xxxxxxxxxx>

On 2012/6/20 6:34 PM, Rory Hewitt wrote:

Follow-on question: Is it possible to change any of the fields in the PSDS?
For instance, if my RPG program  gets a userid/password, calls
QSYGETPH and QWTSETP to swap profiles, can it then change the
PSDS.CurrentUser to be the new user profile? I don't know whether
RPG has some sort of read-only enforcement on the PSDS - I think not, but I wanted to check.

You can change the PSDS if you want, but there's no guarantee that RPG
won't change it later. In the case of PSDS.CurrentUser, you're
probably pretty safe that RPG won't update it later. But me, I'd find
another place to store that value for use by the rest of the module.

Say have a global variable initialized with INZ(*USER), and use that
everywhere that you would have used PSDS.CurrentUser.
--
This is the RPG programming on the IBM i / System i (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.

--
This is the RPG programming on the IBM i / System i (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.