The easiest way to do this is using a
Tables==>Subset
and then select to copy All rows and All Columns, and if you want the table linked, then select the Link to original data table box
The script for this would be:
dt = current data table();
dt << Subset( All rows, Selected columns only( 0 ), Link to original data table( 1 ) );
Jim