ГОСТ Р МЭК 61360-2—2013
THEN
IF ({’ISO:3584_IEC61360_DICTIONARY_SCHEMA’ +
•.NON_QUANTITATIV£_CODE_TYPE’)IN TYPEOF <dom>)
THEN
set_string[];
code_type dom;
REPEAT
3
1TO SI2EOF<code_type.domain.its_values);
setstring :- set_string +
code_type.domain.its_values[j].value_code;
END_REPEAT;
RETURN(val IN set_strina);
ELSE
RETURN<•ISO13584_IEC61360_DICTIONARY_SCHEMA’*
’.STR1NG_TYPE’ IN TYPEOF (dom)>;
END_IF;
END IF;
IF(’IS013584_INSTANCE_RES0URCE_SCHEMA.TRANSLATED_STRING_VALUE’
IN TYPEOF(val))
THEN
RETURN(’ISO13584_IEC6I360_UICTIONARY_SCHEMA’ +
’.TRANSLATABLE_STRING_TYPE’IN TYPEOF (dom));
ENO_IF;
(* The following express statements deal with complex types *)
IF’IS013584_INSTANCE_RES0URCE_SCHEMA.DIC_CLASS_1NSTANCE’
IN TYPEOF(val)
THEN
IF <’iSO13584_lEC61360_DICTIONARY_SCHEMA.CLASS_REFERENCЬ_TYPE,
IN TYPEOF (dom)>
THEN
tempdom.domain;
RETURN (compatible_class_ar.d_class(temp,
val\dic_class_ir.stance.class_def));
ELSE
RETURN(FALSE);
END_IF;
END_IF;
IF ’ISOI3584_INSTANC£_RESOURCE_SCHEMA.LEVEL_SPEC_VALUE’ IN TYPEOF(val)
THEN
IF (’ISO13584_IEC61360_DICTIONARY_SCHEMA.LEVEL_TYPE’
IN TYPEOF (dom))
THEN
RETURN (compatible_level_type_and_ir.stance(
dom.levels,
TYPEOF(dcm.value_type>,
val));
ELSE
RETURN(FALSE);
END_1F;
END IF;
111