LOCAL s : SET OF Stratum_armx := []; --this gives us access TO the information baseEND_LOCAL; REPEAT i := 1 TO SIZEOF(input) BY 1; s := s + input[i]\Stratum_feature_template_component_armx.resident_stratum; END_REPEAT; RETURN(s);