|
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 |
|
public class FGet_ims public static Value run(SdaiContext _context, Value input) |