Example: Use RTVUSRPRF

This is an example of retrieving user profile information.

In the following CL procedure, a Retrieve User Profile Attributes (RTVUSRPRF) command retrieves the name of the user who called the procedure and the name of a message queue to which to send messages for that user:

DCL  &USR  *CHAR  10
DCL  &USRMSGQ  *CHAR  10
DCL  &USRMSGQLIB  *CHAR  10
.
.
.
RTVUSRPRF  USRPRF(*CURRENT)  RTNUSRPRF(&USR)  +
           MGSQ(&USRMSGQ)  MSGQLIB(&USRMSGQLIB)

The following information is returned to the procedure:

&USR contains the user profile name of the user who called the program.
&USRMSGQ contains the name of the message queue specified in the user profile.
&USRMSGQLIB contains the name of the library containing the message queue associated with the user profile.