BPX4GPU (getpwuid) example

The following code accesses the group database by the user name of the caller and returns a structure identifying the groups by name. The code sets the user ID value to 1. For the callable service, see getpwuid (BPX1GPU, BPX4GPU) — Access the user database by user ID. For the data structure, see BPXYGIDN — Map data returned for getpwnam and getpwuid. AMODE 31 callers use BPX1GPU (getpwuid) example.
                                              
       MVC   USERID,..             Value of user ID                     
         SPACE ,                                                        
         CALL  BPX4GPU,              Access database by user ID        +
               (USERID,              Input: User ID                    +
               RETVAL,               Return value 0 or ->BPXYGIDN      +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------