Re: [MI400] User Profile

[Bobby.Hicks@xxxxxxxxxxxxxxxx]

Can I use the MATUP instruction to get other user profile info, like
authority, out queue, etc.  When I ran my test...i didn't see any of this
information.


Bobby.

Robert Hicks
Combinatorics Consulting Company
Tel.: (248) 347 - 7222, ext. 222
Fax: (248) 347 - 7227
Email:  Robert.Hicks@ccc-michigan.com





                      "Leif Svalgaard"
                      <leif@leif.org>          To:       <mi400@midrange.com>
                      Sent by:                 cc:
                      mi400-admin@midra        Subject:  Re: [MI400] User 
Profile
                      nge.com


                      07/09/02 09:02 AM
                      Please respond to
                      mi400






> How can I retrieve information contained in a user profile?  Can I
resolve
> a pointer to it, then use  a space pointer to gater info?  Thanks for any
> help  you can provide me.
>

The Materialize User Profile (MATUP) MI-instruction should work for you:
MATUP spaceptr, systemptr;

The systemptr is the result of the RSLVSP instruction that resolves to the
user profile. The spaceptr points to a 16-byte aligned receiver:

DCL SPCPTR .INFO INIT(INFO);
DCL DD INFO CHAR(144) BDRY(16);
     DCL DD INFO-BYTES-PROVIDED BIN(4) DEF(INFO) POS(1) INIT(144);
     DCL DD INFO-BYTES-AVAILABLE BIN(4) DEF(INFO) POS(5);
     DCL DD INFO-ABOUT-USER CHAR(136) DEF(INFO) POS(9);

DCL SYSPTR .USER;
DCL DD RESOLVE CHAR(34);
     DCL DD RESOLVE-TYPE    CHAR(2) DEF(RESOLVE) POS(1);
     DCL DD RESOLVE-NAME CHAR(30) DEF(RESOLVE) POS(3);
     DCL DD RESOLVE-AUTH    CHAR(2) DEF(RESOLVE) POS(33) INIT(X'0000');

CPYBLA  RESOLVE-TYPE, X'0801';  /* USER PROFILE */
CPYBLAP RESOLVE-NAME, "theuserprofile", " ";
RSLVSP .USER, RESOLVE, *, *;
MATUP .INFO, .USER;




_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.