Hi,

I'm working on migrating users from user.htm files to tables in external repository.
I need to determine if a user is a group admin or not to populate the ISGRPADMIN field in WF_USRGRPTB.

I'm aware that if a user is a group admin the 'gagroups' property is set with those group ids.
I tried posit, substr functions on the USER_PROP field in ibimrusr.txt file generated by mrextract utility, but i'm unable to find out if that particular user is admin to the groups assigned.

Here is the code i tried:
user_prop example:

"inactive,is508,advanced,dataserver,parmrpt,shared,email=testsp@test.com,gagroups=#abc%2c#xyz%2c#efg,dadomains=d1%2d2%2cd3"

FILEDEF ibimrusr DISK &BASELOC/IBIMRUSR.TXT
-RUN

DEFINE FILE ibimrusr
GROUPID/A13 = TRIM('L', GROUP_HREF, 13, '#', 1, 'A13');
STARTG/I3=IF USER_PROP CONTAINS 'gagroups=' THEN (POSIT(USER_PROP,256,'gagroups=',8,'I3')+9) ELSE 0;
F5/A256 = SUBSTR(256,USER_PROP,STARTG,256,256 - STARTG,'A256');
GAGROUP/A256=STRREP (256, F5, 3, '%2c', 1, ',', 256, GAGROUP);
GAGROUP2/A256=STRREP (256, GAGROUP, 1, '#', 0, ',', 256, GAGROUP);

ISGRPADMIN/A1 = IF (GAGROUP2 CONTAINS GROUPID) THEN 'Y' ELSE 'N';
END
-RUN

I think 'CONTAINS' logical operator doesn't work with field comparisons because I get 'N' for all groups.

If I have to use GETTOK function, I'm not sure how to compare to which token as number of groups can vary..

the output I'm trying to achived is:

USERID | GROUPID | ISGRPADMIN
-----------------------------
USER1 abc Y
USER2 123 N


I'd appreciate any help.
Thanks!

This message has been edited. Last edited by: Kerry,

Hi,

I'm sorry, I solved this issue using POSIT function. I got really frustrated looking at the problem so posted the issue, but I took a break and realized the obvious solution:

DEFINE FILE ibimrusr
GROUPID/A13 = TRIM('L', GROUP_HREF, 13, '#', 1, 'A13');
LEN/I3 = ARGLEN(13, GROUPID, LEN);
TEST/I3 = POSIT(USER_PROP,256,GROUPID,LEN,'I3');
ISGRPADMIN/A1 = IF TEST NE 0 THEN 'Y' ELSE 'N';
END

That solved my problem.
Thanks.