Very non-dynamic solution using datatable subscripting
Names Default To Here(1);
dt = Open("$DOWNLOADS/TEST(4).jmp");
cols_of_interest = {"712", "714", "720", "760", "1200", "4011", "5500"};
dt << New Column("Number", Numneric, Continuous, << Set Each Value(
smaller_validx = Loc(dt[Row(), cols_of_interest] < dt[Row(), "4011"]);
Sort List((dt[Row(), cols_of_interest][smaller_validx]))[N Items(smaller_validx) - 1];
));
-Jarmo