BPX4GID (getgid) example

The following code gets the real group ID of the caller. For the callable service, see getgid (BPX1GID, BPX4GID) — Get the real group ID. AMODE 31 callers use BPX1GID (getgid) example.

                                              
         CALL  BPX4GID,              Get the real group ID             +
               (RETVAL),             Return value: real group ID       +
               MF=(E,PLIST)          ----------------------------------