BPX1GEG (getegid) example

The following code gets the effective group ID of the caller. For the callable service, see getegid (BPX1GEG, BPX4GEG) — Get the effective group ID. AMODE 64 callers use BPX4GEG (getegid) example.
                                              
         CALL  BPX1GEG,              Get the effective group ID        +
               (RETVAL),             Return value: effective group ID  +
               VL,MF=(E,PLIST)       ----------------------------------