Re: [MI400] User Profile

["Leif Svalgaard" <leif@xxxxxxxx>]

> 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;