FUNCTION cg_get_sz_ac
(input : SET [1:?] OF assembly_component_placement_link) : INTEGER;
LOCAL ac : SET OF Assembly_component_armx := []; 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
|