KPG1_MIXVx

Obtains from a parameter character values from either a menu of options or within a numeric range

Description:

This routine obtains a group of character values from a parameter. Each value must be either:

o one of a supplied list of acceptable values, with unambiguous abbreviations accepted; or

o a numeric character string equivalent to a number, and the number must lie within a supplied range of acceptable values.

Invocation

CALL KPG1_MIXVx( PARAM, MAXVAL, VMIN, VMAX, OPTS, VALUES, ACTVAL, STATUS )

Arguments

PARAM = CHARACTER ( ) (Given)
The name of the parameter. A GRP group expression should be supplied for the parameter.
MAXVAL = INTEGER (Given)
The maximum number of values required. A PAR__ERROR status is returned when the number of values requested is fewer than one.
VMIN = ? (Given)
The value immediately above a range wherein the obtained numeric values cannot lie. Thus if VMAX is greater than VMIN, VMIN is the minimum numeric value allowed for the obtained values. However, should VMAX be less than VMIN, all numeric values are acceptable except those between VMAX and VMIN exclusive.
VMAX = ? (Given)
The value immediately below a range wherein the obtained numeric values cannot lie. Thus if VMAX is greater than VMIN, VMAX is the maximum numeric value allowed for the obtained values. However, should VMAX be less than VMIN, all numeric values are acceptable except those between VMAX and VMIN exclusive.
OPTS = CHARACTER ( ) (Given)
The list of acceptable options for each value obtained from the parameter. Items should be separated by commas. The list is case-insensitive.
VALUES( MAXVAL ) = CHARACTER ( ) (Returned)
The selected values that are either options from the list or the character form of numeric values that satisfy the range constraint. The former values are in uppercase and in full, even if an abbreviation has been given for the actual parameter. Note that all values must satisfy the constraints. The values will only be valid if STATUS is not set to an error value.
STATUS = INTEGER (Given and Returned)
The global status.

Notes: