xpfAddToAggrIfNotInAggr

FUNCTION xpfAddToAggrIfNotInAggr (aggr        :   AGGREGATE OF GENERIC;   
                                  value       :   GENERIC)
                                  inserted    :   BOOLEAN;
                

Use this function to add the given 'value' to the specified aggregate 'aggr' if the aggregate does not have an element with the same value.

The argument 'aggr' can be any type of aggregate except ARRAY. The argument 'value' can be any of the following data types: sdaiINSTANCE, sdaiINTEGER, sdaiREAL, sdaiSTRING and "typed value" of sdaiINTEGER, sdaiREAL, sdaiSTRING

Arguments

Return Value

Options

Example

FUNCTION get_unique_references(referred: GENERIC): SET OF GENERIC;
     LOCAL
         not_unigue_refs : BAG OF GENERIC;
         unigue_refs : SET OF GENERIC;
     END_LOCAL;
     not_unigue_refs := USEDIN(referred,?);
     unigue_refs := [];
     REPEAT i:=1 TO xpfSizeOf(not_unigue_refs);
          IF xpfAddToAggrIfNotInAggr(unigue_refs, not_unigue_refs[i]) THEN
               xpxPrintf('\n%s inserted', not_unigue_refs[i].name);
          END_IF;
     END_REPEAT;
     RETURN(unigue_refs);
END_FUNCTION;

See also