GRP_HEAD

Finds the group which is at the head of an owner-slave chain

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.