Re: user profile

Look for "program status data structure" in your RPG III manual - it's there. It's in the chapter about error handling.

Or if you have the PDF, just search for "*PROGRAM" - it will be there.

There are several special names for some elements of the PSDS - these take the place of from/to positions.

For elements that do not have a special name, you specify the from/to position values.

Maybe we've been down this road before, but I have to ask - is there a reason you cannot convert the program to RPG IV? With CVTRPGSRC?

HTH
Vern

On 6/21/2012 3:30 AM, Dave wrote:

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.