FUNCTION limdwpcd_get_s
(input : SET [0:?] OF single_stratum_printed_component_armx) : SET [0:?] OF stratum_armx;
LOCAL
s : SET[0:?] OF Stratum_armx := []; --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_armx.stratum_feature_implementation[1]\Stratum_feature_armx.resident_stratum;
END_REPEAT;
RETURN(s); END_FUNCTION; -- limdwpcd_get_s
|