FUNCTION get_ama
(input : analytical_model_port_assignment_select) : SET [0:?] OF analytical_model_application;
LOCAL ama : SET[0:?] OF Analytical_model_application := []; --this gives us access TO the information base ampa : SET[0:?] OF Analytical_model_port_assignment_armx :=[]; END_LOCAL; ampa := bag_to_set(USEDIN (input, 'ANALYTICAL_MODEL_XIM.'+ 'ANALYTICAL_MODEL_PORT_ASSIGNMENT_ARMX.ASSIGNED_ITEM')); -- iterate over ampa REPEAT i := 1 TO SIZEOF(ampa) BY 1; ama := ama + ampa[i].associated_analytical_model_application; END_REPEAT;
RETURN(ama); END_FUNCTION; -- get_ama
|