FUNCTION fd_get_single_stratum_components
(input : SET [0:?] OF Template_location_in_structured_template) : SET [0:?] OF Single_stratum_template;
LOCAL
sst : SET OF Single_stratum_template := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(input);
IF ('LAYERED_INTERCONNECT_SIMPLE_TEMPLATE_ARM.SINGLE_STRATUM_TEMPLATE' 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
|