ARD_GRPEX - Store an ARD description in a GRP group

Description:

The supplied ARD description is appended to the group identified by IGRP2. If the symbolic constant GRP__NOID is supplied for IGRP2 then a new group is first created and its identifier is returned in IGRP2.

If a GRP identifier for an existing group is supplied for IGRP1 then the group will be used as the basis for any modification elements contained within the ARD description. No checks are made for modification elements if the symbolic constant GRP__NOID is supplied for IGRP1.

Invocation:

CALL ARD_GRPEX( DESC, IGRP1, IGRP2, FLAG, STATUS )

Arguments:

DESC = CHARACTER $*$ ( $*$ ) (Given)

The ARD description.

IGRP1 = INTEGER (Given)

GRP identifier for a group to be used as a basis for modification elements.

IGRP2 = INTEGER (Given and Returned)

GRP identifier for the group holding the ARD description.

FLAG = LOGICAL (Returned)

Returned .TRUE. if the last non-blank character in the supplied ARD description is a minus sign ("-").

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

• No checks are made on the syntax of the ARD description.

• The returned GRP identifier (IGRP2) should be deleted using GRP_DELET when it is no longer needed.

• The symbolic constant GRP__NOID is defined in the include file GRP_PAR.