There is a Column Recode dialog
Cols=>Column Names=>Recode Column Names
Or you can use a variation on the below script to do the recoding
Names Default To Here( 1 );
dt = Current Data Table();
colNamesList = dt << get column names( string );
For Each( {col, i}, colNamesList,
If( Contains( col, "Male" ),
Column( dt, col ) << set name( "Male" )
)
);
Jim