you may have a look at text explorer (main menu analyse),
please see the following example as script, or in scripting index, or in statistics index (main menu help).
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Consumer Preferences.jmp" );
obj = dt << Text Explorer( TextColumns( :Reasons Not to Floss ) );
Georg