Date:         Fri, 15 Sep 2006 16:27:53 +0100
Reply-To:     "Antro, Mark" <mantro@SPSS.COM>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         "Antro, Mark" <mantro@SPSS.COM>
Subject:      Re: adding "T2" to variable names
Comments: To: Michael Pearmain <Michael.Pearmain@tangozebra.com>
In-Reply-To:  A<1F6CEC6E7A3BDE459B06BECA190CB0C401284CE8@ex-001.twentysixlondon.com>
Content-Type: text/plain; charset="us-ascii"

Alternative, using v14 (though if you have OMS you can use this and drop the DATASET commands and use a temp file) which doesn't read the data in first (more efficient if you have large datasets to open).

DATASET DECLARE VarNames.
OMS
 /SELECT TABLES
 /IF COMMANDS = ["Sysfile Info"]
     SUBTYPES = ["Variable Information"]
 /DESTINATION FORMAT = SAV
  OUTFILE = VarNames.
OMS
 /SELECT ALL
 /IF COMMANDS = ["Sysfile Info"]
 /DESTINATION VIEWER = NO.

SYSFILE INFO
  'C:\Program Files\SPSS14\employee data.sav'.

OMSEND.
DATASET ACTIVATE Varnames.
STRING newname(A50).
COMPUTE newname=CONCAT("T2",SUBSTR(Var1,2)).
DO IF $CASENUM = 1.
WRITE OUTFILE='c:\temp\rename2.sps'
/ 'GET FILE="C:\Program Files\SPSS14\employee data.sav" /RENAME 'Var1'='newname' '.
ELSE.
WRITE OUTFILE='c:\temp\rename2.sps'
/ ' /RENAME 'Var1'='newname'.'.
END IF.
Execute.

INCLUDE 'C:\temp\rename2.sps'.
DATASET NAME renamed_data.
DATASET CLOSE Varnames.

Rgds,
Antro.