BPX1SGR (setgroups) example
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 64 callers use BPX4SGR (setgroups) example.
LA R15,BUFFERA
ST R15,BUFA
MVC BUFFERA(12),=XL12'000000010000000200000003'
SPACE ,
CALL BPX1SGR, 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 +
VL,MF=(E,PLIST) ----------------------------------