FUNCTION get_cond_class
(input1 : material_identification_with_conductivity_classification, input2 : STRING) : STRING;
LOCAL
car : SET OF Applied_classification_assignment := [];
END_LOCAL;
car := QUERY(ca <* bag_to_set(USEDIN(input1,
'CLASSIFICATION_ASSIGNMENT_MIM.' +
'APPLIED_CLASSIFICATION_ASSIGNMENT.' + 'ITEMS')) |
('CONDUCTIVITY_MATERIAL_ASPECTS_XIM.'+
input2 IN TYPEOF (ca.assigned_class)));
IF SIZEOF(car) = 1
THEN
RETURN(car[1].assigned_class\group.name);
ELSE
RETURN('?');
END_IF; END_FUNCTION; -- get_cond_class
|