GRP_SOWN - Establish one group as the owner of another group

Description:

This routine establishes one specified group as "owner" of another specified group. An error is reported if the group is already owned by another group. An error is also reported if the "owner" group already owns a slave.

This routine may also be used to cancel an "owner-slave" relationship, by specifying IGRP2 as GRP__NOID. The group identified by IGRP1 then becomes a "free" group (i.e. has no owner). An error is reported if IGRP1 identifies a group which is already free.

Invocation:

CALL GRP_SOWN( IGRP1, IGRP2, STATUS )

Arguments:

IGRP1 = INTEGER (Given)

The identifier of the "slave" group which is to have an owner established for it. An error is reported if an invalid identifier is given.

IGRP2 = INTEGER (Given)

The identifier of the group which is to be established as the owner of the group identified by IGRP1.

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

• There is a restriction on the use of owner-slave relationships, namely that a slave cannot own its own owner, either directly or indirectly. That is, if group A is owned by group B, and group B is owned by group C, then group C cannot be owned by either group B, or group A. An error is reported, if an attempt is made to set up such a relationship.

• When a group is deleted using GRP_DELET, all other groups in the same owner/slave chain, whether higher up or lower down, are also deleted. If a group is to be deleted without deleting all other related groups, then the group must be established as a "free" group (i.e. no owner) by calling this routine with IGRP2 set to GRP__NOID, before calling GRP_DELET.