* Переименовываем переменные: требуется перекодировать
 var1 в varx, и так далее (имена новых переменных определяются автоматически).

* Имена исходных переменных не должны заканчиваться на 'x'.
* Автор: rlevesque@videotron.ca.

DATA LIST FREE /abc, sal, age, sex1, school,v1234567.
BEGIN DATA
85 95 5 87 100 1
END DATA.
LIST.
SAVE OUTFILE='c:\\temp\\mydata.sav'.

* Допустим, мы хотим перекодировать переменные примера в новые переменные с теми же именами, но с
 заменой последней буквы имени на X.

FLIP.
STRING newname(A8).
* Синтаксис рассчитан на длину имён переменных не более 8 символов - примеч. перев.
COMPUTE newname=CONCAT(SUBSTR(case_lbl,1,LENGTH(RTRIM(case_lbl))-1),"X").
WRITE OUTFILE 'c:\\temp\\temp.sps' 
   /"RECODE "case_lbl"  (ELSE=COPY) INTO "newname"."/"FREQ "newname".".
EXE.

GET FILE='c:\\temp\\mydata.sav'.
INCLUDE 'c:\\temp\\temp.sps'.