BPX1SEG (setegid) example

The following code sets the effective group ID of the invoker to 1. For the callable service, see setegid (BPX1SEG, BPX4SEG) — Set the effective group ID. AMODE 64 callers use BPX4SEG (setegid) example.
                                              
         MVC   GROUPID,=XL4'00000001' Value of new effective ID         
         SPACE ,                                                        
         CALL  BPX1SEG,              Set effective group ID            +
               (GROUPID,             Input: Group ID                   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------