FUNCTION limdwpcd_get_s
(input : SET [0:?] OF Single_stratum_printed_component) : SET [0:?] OF Stratum;
LOCAL
s : SET[0:?] OF Stratum := []; --this gives us access TO the information base
END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1;
s := s + input[i]\Single_stratum_printed_component.stratum_feature_implementation[1]\Stratum_feature.resident_stratum;
END_REPEAT;
RETURN(s); END_FUNCTION; -- limdwpcd_get_s
|