LOCAL s : SET OF Stratum := []; --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.resident_stratum; END_REPEAT; RETURN(s);