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