The following code provides the caller with a list of
supplementary group IDs.
The code sets BUFW size to 256. The actual
BUFW size is determined from the previous BPX1GGR
RETVAL when BUFW was 0. For the callable service, see
getgroups (BPX1GGR, BPX4GGR) — Get a list of supplementary group IDs. AMODE 64 callers use
BPX4GGR (getgroups) example.
* MVC BUFW,=XL4'00000256' Value of buffer BUFW
LA R15,BUFFERA Space for BUFW words
ST R15,BUFA ->Array for group IDs
SPACE ,
CALL BPX1GGR, Get list of supplementary grp IDs +
(BUFW, Input: Group ID list size +
BUFA, ->Buffer for Group ID list address+
RETVAL, Return value: -1, 0, ID count +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------