How to recode column names using jsl?

[#1]

I need to remove the first word from ALL column names and it can be easily done in the Recode Column Names. However, there is no way to save this task as a script in the recode window. I don't see it in the action recorder of JMP 16 either. Can someone help me with writing the JSL code that can do this job for me?

[#2 · Accepted solution]

Here is a simple script to do what you want

Names Default To Here( 1 );

dt = Current Data Table();
For( i = 1, i <= N Cols( dt ), i++,
	Column( dt, i ) << set name(
		Trim(
			Substr( Column( dt, i ) << get name, Length( Word( 1, Column( dt, i ) << get name, " " ) ) + 1 )
		)
	)
);

[#3]

Thanks a lot Jim. Helpful as always.