BPX4SRG (setregid) example
The following code sets the real and/or effective group
IDs to 1. For the callable service, see setregid (BPX1SRG, BPX4SRG) — Set the real and/or effective GIDs.
AMODE 31 callers use BPX1SRG (setregid) example.
MVC RGID,=XL4'00000001' Value of new real group ID
MVC RGID,.. Group ID to be set from a getgid
MVC EGID,=XL4'00000001' Value of new effective group ID
MVC EGID,.. Group ID to be set from a getegid
SPACE ,
CALL BPX4SRG, Set Group IDs +
(RGID, Input: Real Group ID to be set +
EGID, Input: Eff. Group ID to be set +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------