FUNCTION cg_get_sz_ac
(input : SET [1:?] OF Assembly_component_placement_link) : INTEGER;
LOCAL
ac : SET OF Assembly_component := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(input);
ac := ac + input[i]\Assembly_component_placement_link.precedent_element +
input[i]\Assembly_component_placement_link.subsequent_element;
END_REPEAT;
RETURN (SIZEOF(ac)); END_FUNCTION; -- cg_get_sz_ac
|