1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
* I posted this to SPSSX-L on Aug 30 2000.
* to define variables varx to vary.
* Ray

DATA LIST LIST /a(F8).
BEGIN DATA
1
END DATA.

DEFINE MakeVars (!POS=!TOKENS(1)/!POS=!TOKENS(1)).
NUMERIC !CONCAT(Var,!1) TO !CONCAT(Var,!2).
!ENDDEFINE.

MakeVars 10 14.
EXECUTE.