LOCAL
          s : SET  OF  Stratum := [];  --this gives us access TO  the information base
          stol : SET  OF  Stratum_technology_occurrence_link := [];  --this gives us access TO  the information base
          ptatsm : SET OF Passage_technology_allocation_to_stack_model := [];  --this gives us access TO  the information base
END_LOCAL;

          REPEAT i := 1 TO  SIZEOF(input1) BY  1;
             ptatsm := ptatsm + input1[i]\Inter_stratum_feature.vertical_extent;
          END_REPEAT;

          REPEAT i := 1 TO SIZEOF(ptatsm) BY 1;
             stol := stol + ptatsm[i]\Stratum_sub_stack.stratum_technology_sequence;
          END_REPEAT;

             s := limdwpcd_get_stolrs(stol, input2);
          RETURN(s);