Выполнить макрос для каждого уникального значения переменной

* Как выполнить макрос для каждого уникального значения переменной из файла данных?.
* Размещено в SPSSX-L list, автор: Raynald Levesque, 8.10.2004.
* Веб: www.spsstools.net

DATA LIST LIST /id score1.
BEGIN DATA
1 2
2 5
3 7
1 5
2 5
3 5
END DATA.
SAVE OUTFILE='c:\\temp\\data.sav'.

*//////////////////////.
DEFINE !macro (id=!TOKENS(1))
GET FILE='c:\\temp\\data.sav'.
SELECT IF id=!id.
GRAPH
  /BAR(SIMPLE)=COUNT BY score1.
!ENDDEFINE
*//////////////////////.

GET FILE='c:\\temp\\data.sav'.
AGGREGATE OUTFILE=*
	/BREAK=id
	/notused=N.
WRITE OUTFILE='c:\\temp\\syntax.sps' /'!macro id='id.
EXECUTE.

INCLUDE 'c:\\temp\\syntax.sps'.