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