Here is a simple script that will copy all of your column names into a column, which you can then do anything you want.
Names Default To Here( 1 );
dt = Current Data Table();
newdt = New Table( "columns",
New Column( "Column Names",
character,
values( dt << get column names )
);
Jim