Description:
This
routine climbs the chain of owners starting at the group identified by IGRP1, until a group is found
which has no owner. The identifier issued for this group is returned in IGRP2. If the group identified
by IGRP1 has no owner, then IGRP2 is returned equal to IGRP1.
Invocation
CALL GRP_HEAD(
IGRP1, IGRP2, STATUS )
Arguments
IGRP1 = INTEGER (Given)
A group identifier.
IGRP2 =
INTEGER (Returned)
The identifier for the group which is at the head of the owner-slave chain.
Returned equal to GRP__NOID if an error occurs.
STATUS = INTEGER (Given and Returned)
The
global status.