LOCAL
          s : SET  OF  Stratum_armx := [];  --this gives us access TO  the information base
          stol : SET  OF  Stratum_technology_occurrence_link_armx := [];  --this gives us access TO  the information base
          ptatsm : SET OF Passage_technology_allocation_to_stack_model_armx := [];  --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_armx.vertical_extent;
             
             
          END_REPEAT;

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

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