For the first part, you could try something like this:
NamesDefaultToHere(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
Wait(3);
for(c=1, c<=NCol(dt), c++, Column(dt, c) << setName(Char(Column(dt, c)[8])));
For the second part, take a look at 'Analyze > Quality and Process > Manage Spec Limits' and the associated help.