BPX1SGI (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 64 callers use BPX4SGI (setgid) example.

                                              
         MVC   USERID,=XL4'00000001' Value of new group user ID         
         SPACE ,                                                        
         CALL  BPX1SGI,              Set group ID                      +
               (GROUPID,             Input: Group ID                   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------