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)          ----------------------------------