FUNCTION pcd_get_assemblies
(input : SET [0:?] OF component_terminal_armx) : SET [0:?] OF product_view_definition;
LOCAL
ac : SET OF Assembly_component_armx := [];
pvd : SET OF Product_view_definition := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(input) BY 1;
ac := ac + input[i]\Component_feature_armx.associated_component;
END_REPEAT;
REPEAT i := 1 TO HIINDEX(ac) BY 1;
pvd := pvd + ac[i]\Assembly_component_armx.assemblies;
END_REPEAT;
RETURN(pvd); END_FUNCTION; -- pcd_get_assemblies
|