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