BPX4GGN (getgrnam) example

The following code accesses the group database by the name of the caller and returns a structure identifying the groups by ID. For the callable service, see getgrnam (BPX1GGN, BPX4GGN) — Access the group database by name. For the data structure, see BPXYGIDS — Map data returned for getgrnam and getgrpid. AMODE 31 callers use BPX1GGN (getgrnam) example.

                                              
         MVC   GRNAMELN,=F'7'                                           
         MVC   GRPGMNAME(7),=CL7'EXTSERV'                               
         SPACE ,                                                        
         CALL  BPX4GGN,              Access the group database         +
               (GRNAMELN,            Input: Length of group name       +
               GRPGMNAME,            Input: Name of group              +
               RETVAL,               Return value: 0 or ->BPXYGIDS     +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------