FUNCTION get_ims
(input : stratum_armx) : 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
|