BPX4GGE (getgrent) example
The following code accesses the group database starting
with the next available entry and continuing until end of
file on the database. It returns a structure identifying
information about each group entry in the database. For the
callable service, see getgrent (BPX1GGE, BPX4GGE) — Sequentially access the group database. For the
data structure, see BPXYGIDS — Map data returned for getgrnam and getgrpid.
AMODE 31 callers
use BPX1GGE (getgrent) example.
GGELOOP DS 0H
CALL BPX4GGE, Access the group database +
(RETVAL, Return value: 0 or ->BPXYGIDS +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------
ICM R8,B'1111',RETVAL
BZ CHKGGERR Error or end of file
USING GIDS,R8
* access the group structure
DROP R8
B GGELOOP Check next group entry
CHKGGERR DS 0H
ICM R8,B'1111',RETCODE
BZ GGEEOF End of file
* handle error as needed
GGEEOF DS 0H