FUNCTION consistent_element_or_group_reference
(aspect : GENERIC, element : GENERIC) : BOOLEAN;
LOCAL
srrs : STRING;
i : INTEGER;
END_LOCAL;
srrs := 'STRUCTURAL_RESPONSE_REPRESENTATION_SCHEMA.';
IF ((srrs + 'ELEMENT_REPRESENTATION') IN TYPEOF(element)) THEN
RETURN (consistent_element_reference (aspect, element));
END_IF;
IF ((srrs + 'ELEMENT_GROUP') IN TYPEOF(element)) THEN
REPEAT i := 1 TO HIINDEX (element.elements);
IF NOT (consistent_element_reference (aspect, element.elements[i]))
THEN
RETURN (FALSE);
END_IF;
END_REPEAT;
RETURN (TRUE);
END_IF;
RETURN (FALSE); END_FUNCTION; -- consistent_element_or_group_reference
|