FUNCTION item_correlation
(items : SET [0:?] OF GENERIC, c_items : SET [0:?] OF STRING) : LOGICAL;
LOCAL
c_types : SET OF STRING := [];
c_hit : INTEGER := 0;
END_LOCAL;
REPEAT i:=1 TO HIINDEX(c_items);
c_types := c_types + ['CATALOG_DATA_INFORMATION_MIM' + '.' + c_items[i]];
END_REPEAT;
REPEAT i:=1 TO HIINDEX(items);
IF (SIZEOF(c_types * TYPEOF(items[i])) = 1) THEN
c_hit := c_hit + 1;
END_IF;
END_REPEAT;
RETURN (SIZEOF(items) = c_hit); END_FUNCTION; -- item_correlation
|