CTG_CREAT

Obtain the names of a group of catalogues to be created from the environment

Description:

A group expression is obtained from the environment using the supplied parameter. The expression is parsed (using the facilities of the GRP routine GRP_GROUP, see SUN/150) to produce a list of explicit catalogue names. These names are appended to the group identified by IGRP. The user is re-prompted if an error occurs while parsing the group expression. If IGRP has the value GRP__NOID on entry, then a new group is created and IGRP is returned holding the new group identifier.

If IGRP0 holds a valid group identifier on entry, then the group identified by IGRP0 is used as the basis for any modification element contained in the group expression obtained from the environment. If IGRP0 holds an invalid identifier (such as GRP__NOID) on entry then modification elements are included literally in the output group.

Invocation

CALL CTG_CREAT( PARAM, IGRP0, IGRP, SIZE, FLAG, STATUS )

Arguments

PARAM = CHARACTER() (Given)
The parameter with which to associate the group.
IGRP0 = INTEGER (Given)
The GRP identifier for the group to be used as the basis for any modification elements. If a valid GRP identifier is supplied, and if the supplied group expression contains a modification element, then:
  • the basis token (an asterisk) is replaced by the file basename associated with the corresponding element of the basis group (the basis catalogue); else

  • if no directory specification is included in the group expression, the directory specification associated with the basis catalogue is used.

The supplied group will often be created by CTG_ASSOC, but groups created by hand using GRP directly can also be used (i.e. without the supplemental groups created by CTG). In this case, there are no defaults for directory path or file type, and the basis token ("") in the group expression represents the full basis file specification supplied in IGRP0, not just the file basename.

IGRP = INTEGER (Given and Returned)
The GRP identifier for the group to which the supplied files are to be appended.
SIZE = INTEGER (Returned)
The total number of file names in the returned group.
FLAG = LOGICAL (Returned)
If the group expression was terminated by the GRP flag character, then FLAG is returned .TRUE.. Otherwise it is returned .FALSE.. Returned .FALSE. if an error occurs.
STATUS = INTEGER (Given and Returned)
The global status.

Notes: