|
FUNCTION consistent_list_values (values : LIST [1:?] OF field_value, variable : GENERIC) : BOOLEAN; LOCAL vv_type : STRING ; fv_type : SET [ 1 : ? ] OF STRING ; i : INTEGER ; END_LOCAL ; vv_type := variable_value_type ( variable ) ; REPEAT i := 1 TO HIINDEX ( values ) ; fv_type := TYPEOF ( values [ i ] ) ; IF NOT ( ( 'finite_element_analysis_control_and_result_schema.' + 'unspecified_value' ) IN fv_type ) THEN IF NOT ( vv_type IN fv_type ) THEN RETURN ( FALSE ) ; END_IF ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- consistent_list_values |
|
public class FConsistent_list_values public static Value run(SdaiContext _context, Value values, Value variable) |