FUNCTION get_ims
(input : Stratum) : SET [0:?] OF Product_view_definition;
LOCAL
imsar : SET OF Interconnect_module_stratum_assembly_relationship := input.assembly;
pvd : SET OF Product_view_definition := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(imsar) BY 1;
pvd := pvd + imsar[i].assembly;
END_REPEAT;
RETURN (pvd); END_FUNCTION; -- get_ims
|