|
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 |
|
public class FItem_correlation public static Value run(SdaiContext _context, Value items, Value c_items) |