FUNCTION get_electrical_conductivity
(mi : SET [0:?] OF material_designation) : BOOLEAN;
REPEAT i := 1 TO SIZEOF(mi) BY 1; IF ('CONDUCTIVITY_MATERIAL_ASPECT.'+'MATERIAL_IDENTIFICATION_WITH_CONDUCTIVITY_CLASSIFICATION' IN TYPEOF (mi[i])) THEN IF((EXISTS(mi[i].electrical_conductivity_classification)) AND (mi[i].electrical_conductivity_classification IN ['conductive', 'semi conductive', 'super conductive'])) THEN RETURN (TRUE); END_IF; END_IF; END_REPEAT; RETURN (FALSE); END_FUNCTION; -- get_electrical_conductivity
|