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