KPG1_WGNDF

Gets a group of output NDF names

Description:

The supplied parameter is used to get a GRP group expression (see SUN/150 ) holding a list of NDFs which are to be created by the calling application (the syntax of the group expression is defined by the current default GRP control characters). Modification elements within the group expression are based on the group identified by IGRP0. If the group expression is flagged, then the current parameter value is cancelled, the string supplied in TEXT is displayed (if it is not blank) and another group expression is obtained. The NDFs specified by the second group expression are added to the group holding the NDFs specified by the first group expression. The group continues to be expanded in this way until a group expression is obtained which is not flagged, or a null value is given, or the limit on the number of NDFs (MAXSIZ) is reached. If the final group contains more than MAXSIZ NDFs, then all but the first MAXSIZ NDFs are removed from the group. The user is warned if this happens. If MAXSIZ is supplied with the value zero no limit is imposed on the number of NDFs within the group. If the final group contains less than MINSIZ NDFs then the user is told to supply more, and is re-prompted for further NDF names. All messages issued by this routine have a priority level of MSG__NORM.

Invocation

CALL KPG1_WGNDF( PARAM, IGRP0, MAXSIZ, MINSIZ, TEXT, IGRP, SIZE, STATUS )

Arguments

PARAM = CHARACTER ∗ ( ∗ ) (Given)
The parameter (of type LITERAL).
IGRP0 = INTEGER (Given)
The NDG identifier for a group containing a set of NDF names to be used as the basis for any modification elements contained within the group expressions. If this is supplied equal to GRP__NOID then modification elements are left un-expanded.
MAXSIZ = INTEGER (Given)
The maximum number of NDFs which can be allowed in the returned group. If zero is supplied, no limit is imposed.
MINSIZ = INTEGER (Given)
The minimum number of NDFs which can be allowed in the returned group. If zero is supplied, then the returned group may contain no NDFs.
TEXT = CHARACTER ∗ ( ∗ ) (Given)
The text to display between issuing prompts for successive group expressions. If blank then no text is displayed.
IGRP = INTEGER (Returned)
The NDG identifier for the returned group holding all the specified NDFs.
SIZE = INTEGER (Returned)
The number of files in the output group. Returned equal to 1 if STATUS is not equal to SAI__OK.
STATUS = INTEGER (Given and Returned)
The global status.