FUNCTION fd_get_single_stratum_components
(input : SET [0:?] OF template_location_in_structured_template) : SET [0:?] OF single_stratum_template_armx;
LOCAL sst : SET OF Single_stratum_template_armx := []; END_LOCAL; REPEAT i := 1 TO HIINDEX(input); IF ('LAYERED_INTERCONNECT_SIMPLE_TEMPLATE_XIM.SINGLE_STRATUM_TEMPLATE_ARMX' IN TYPEOF(input[i]\Template_location_in_structured_template.template)) THEN sst := sst + input[i]\Template_location_in_structured_template.template; END_IF; END_REPEAT; RETURN (sst); END_FUNCTION; -- fd_get_single_stratum_components
|