BPX4GUG (getgroupsbyname) example

The following code returns the number of supplementary group IDs, up to 9, for user Pebbles. For the callable service, see getgroupsbyname (BPX1GUG, BPX4GUG) — Get a list of supplementary group IDs by user name. AMODE 31 callers use BPX1GUG (getgroupsbyname) example.

                                              
         MVC   USERNLEN,=F'7'                                           
         MVC   USERNAME(07),=CL07'Pebbles'                              
         MVC   BUFLENA,=F'9'                                            
         LA    R15,BUFFERA                                              
         STG   R15,BUFA                                                 
         SPACE ,                                                        
         CALL  BPX4GUG,              Get list of groups by user name   +
               (USERNLEN,            Input: User name length           +
               USERNAME,             Input: User name                  +
               BUFLENA,              Input: Group ID list size         +
               BUFA,                 Group ID list address             +
               RETVAL,               Return value: -1, or # of grp IDs +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------