BPX4SGE (setgrent) example

The following code resets the group database to the beginning, so that a subsequent BPX4GGE call will restart the group database search from the first entry. For the callable service, see setgrent (BPX1SGE, BPX4SGE) — Reset the group database. AMODE 31 callers use BPX1SGE (setgrent) example.
                                              
         CALL  BPX4SGE,              Reset the group database          +
               (RETVAL),             Return value: 0                   +
               MF=(E,PLIST)          ----------------------------------