FUNCTION get_pct
(input : SET [0:?] OF Physical_connectivity_element) : SET [0:?] OF Physical_component_terminal;
LOCAL
pct : SET OF Physical_component_terminal := [];
i : INTEGER := 0;
END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1;
IF ('PHYSICAL_COMPONENT_FEATURE_ARM.PHYSICAL_COMPONENT_TERMINAL' IN TYPEOF(input[i].start_terminus)) THEN
pct := pct + input[i].start_terminus;
END_IF;
IF ('PHYSICAL_COMPONENT_FEATURE_ARM.PHYSICAL_COMPONENT_TERMINAL' IN TYPEOF(input[i].end_terminus)) THEN
pct := pct + input[i].end_terminus;
END_IF;
END_REPEAT;
RETURN(pct); END_FUNCTION; -- get_pct
|