The following code sets the supplementary group id list
to the three gids (00000001, 000000002, 00000003) in BUFFERA. For
the callable service, see
setgroups (BPX1SGR, BPX4SGR) — Set the supplementary group IDs list. AMODE
31 callers use
BPX1SGR (setgroups) example.
LA R15,BUFFERA
STG R15,BUFA
MVC BUFFERA(12),=XL12'000000010000000200000003'
SPACE ,
CALL BPX4SGR, Set supplementary groups list +
(=A(3), Input: number of sgids in list +
BUFA, Input: address of sgids list +
RETVAL, Return value: -1 or 0 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------