FUNCTION get_cond_class
(input1 : Material_identification_with_conductivity_classification; input2 : STRING) : STRING;
LOCAL
car : SET OF Classification_assignment := [];
END_LOCAL;
car := QUERY(ca <* bag_to_set(USEDIN(input1,
'CLASSIFICATION_ASSIGNMENT_ARM.' +
'CLASSIFICATION_ASSIGNMENT.' + 'ITEMS')) |
('CONDUCTIVITY_MATERIAL_ASPECTS_ARM.'+
input2 IN TYPEOF (ca.assigned_class)));
IF SIZEOF(car) = 1
THEN
RETURN(car[1].assigned_class\class.name);
ELSE
RETURN('?');
END_IF; END_FUNCTION; -- get_cond_class
|