You can do this kind of thing:
NamesDefaultToHere(1);
dt1 = Open("$SAMPLE_DATA/Consumer Preferences.jmp");
cat = dt1 << Categorical(
Grouping Option( Each Individually ),
X( :Age Group ),
Responses( :I am working on my career )
);
dt2 = cat << SaveTransposedFrequencies;
Wait(2);
Report(cat) << CloseWindow;
Close(dt1, NoSave);