Overview Schemas Index

ISO13584_IEC61360_DICTIONARY_SCHEMA (jsdai.SIso13584_iec61360_dictionary_schema)


FUNCTION codes_are_unique
          (values : LIST [0:?] OF dic_value) : BOOLEAN;

 LOCAL ls : SET  OF  STRING := [ ] ; li : SET OF INTEGER := [ ] ; END_LOCAL ; IF  ( 'iso13584_iec61360_dictionary_schema.value_code_type' IN  TYPEOF  ( values [ 1 ] . value_code ) ) THEN  REPEAT  i := 1 TO  SIZEOF  ( values ) ; ls := ls + values [ i ] . value_code ; END_REPEAT  ; RETURN  ( SIZEOF  ( values ) = SIZEOF  ( ls ) ) ; ELSE  IF ( 'iso13584_iec61360_dictionary_schema.integer_type' IN TYPEOF ( values [ 1 ] . value_code ) ) THEN REPEAT i := 1 TO SIZEOF  ( values ) ; li := li + values [ i ] . value_code ; END_REPEAT ; RETURN  ( SIZEOF  ( values ) = SIZEOF ( li ) ) ; ELSE RETURN ( UNKNOWN ) ; END_IF  ; END_IF ; 

END_FUNCTION; -- codes_are_unique

public class FCodes_are_unique
          public static Value run(SdaiContext _context, Value values)