FUNCTION consistent_list_values
(values : LIST [1:?] OF field_value, variable : GENERIC) : BOOLEAN;
LOCAL
vv_type : STRING;
fv_type : SET [1:?] OF STRING;
i : INTEGER;
END_LOCAL;
vv_type := variable_value_type (variable);
REPEAT i := 1 TO HIINDEX (values);
fv_type := TYPEOF (values[i]);
IF NOT (('FINITE_ELEMENT_ANALYSIS_CONTROL_AND_RESULT_SCHEMA.' +
'UNSPECIFIED_VALUE') IN fv_type) THEN
IF NOT (vv_type IN fv_type) THEN
RETURN (FALSE);
END_IF;
END_IF;
END_REPEAT;
RETURN (TRUE); END_FUNCTION; -- consistent_list_values
|