FUNCTION get_stack
(input : SET [0:?] OF Stratum_technology_occurrence_link) : SET [0:?] OF Stratum_technology_occurrence;
LOCAL
sto : SET OF Stratum_technology_occurrence := [];
i : INTEGER := 0;
END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1;
sto := sto + input[i]\Stratum_technology_occurrence_relationship.sto_1 + input[i]\Stratum_technology_occurrence_relationship.sto_2;
END_REPEAT;
RETURN(sto); END_FUNCTION; -- get_stack
|