BPX1GPN (getpwnam) example

The following code accesses the group database by the user ID of the caller and returns a structure identifying the groups by name. For the callable service, see getpwnam (BPX1GPN, BPX4GPN) — Access the user database by user name. For the data structure, see BPXYGIDN — Map data returned for getpwnam and getpwuid. AMODE 64 callers use BPX4GPN (getpwnam) example.

                                              
         MVC   USERNLEN,=F'8'                                           
         MVC   USERNAME(8),=CL8'Pebbles'                                
         SPACE ,                                                        
         CALL  BPX1GPN,              Access the user database          +
               (USERNLEN,            Input: Length of user name        +
               USERNAME,             Input: Name of user               +
               RETVAL,               Return value 0 or ->BPXYGIDN      +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------