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
|