Removing spaces in column headers

Removing spaces in column headers: How can I remove spaces in all column headers in a table?

You can use the following script:

Set V[i] 1
label change_colhead
GetFieldAttribute [SAPLCATS_TC_CATSD,&V[i]] header=h

if Q[ok]

// remove space characters
Set text[h] "&V[h]"
ReplaceText h fromHexcode= "20" toHexcode= ""

ColumnHeader [SAPLCATS_TC_CATSD,&V[i]] "&text[h]"

Set V[i] &V[i] + 1
goto change_colhead

endif