*(Q) How can I automatically remove underscores in variable names. *(A) Posted to SPSSX-L list by Raynald Levesque on 2002/06/12. * http://pages.infinit.net/rlevesqu/index.htm. *GET FILE='c:\\1991\\data\\mf1991.sav'. DATA LIST LIST / id var__1 abc_ a_b_c_d. BEGIN DATA 1 1 1 1 END DATA. SAVE OUTFILE= 'c:\\temp\\tempx.sav'. * next line is useful when you deal with a large data file. N OF CASES 1. flip. string newname(a8). COMPUTE newname=case_lbl. LOOP IF INDEX(newname,'_')>0 . + COMPUTE #I = INDEX(newname,'_') . + COMPUTE newname=CONCAT(SUBSTR(newname,1,#I-1),SUBSTR(newname,#I+1)). END LOOP . DO IF case_lbl<>newname. WRITE OUTFILE='c:\\temp\\undersco.sps' /'RENAME VARIABLE ('case_lbl'='newname').'. END IF. exe. get file ='c:\\temp\\tempx.sav'. include 'c:\\temp\\undersco.sps'. *SAVE OUTFILE= 'c:\\1991\\data\\MF1991b.sav'.