BPX4SGI (setgid) example
The following code sets the real, effective, and save
group IDs to 1. For the callable service, see setgid (BPX1SGI, BPX4SGI) — Set the group ID. AMODE 31 callers use BPX1SGI (setgid) example.
MVC USERID,=XL4'00000001' Value of new group user ID
SPACE ,
CALL BPX4SGI, Set group ID +
(GROUPID, Input: Group ID +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------