Вызвать 200 файлов синтаксиса на исполнение через макрос

* Пример того, как можно вызвать через макрос несколько (или несколько сот) разных файлов
 синтаксиса.
* Размещено 10.04.2002 в новостной группе SPSS. Автор: Ray.
* http://www.spsstools.net.

SET MPRINT=no.

*//////////////////////.
DEFINE !runall (stem=!TOKENS(1) /nb=!TOKENS(1))

!DO !cnt=1 !TO !nb

!LET !c1=!LENGTH(!SUBSTR(!stem,!LEN(!CONCAT(!cnt," "))))
/* stem1 - эта та часть имени, которую хотим сохранить для вызова очередного файла */
!LET !stem1=!SUBSTR(!stem,1,!c1)
INCLUDE !QUOTE(!CONCAT('c:\\path\\',!stem1,!cnt,'.sps.')).
!DOEND
!ENDDEFINE.
*//////////////////////.

* Покажем, как макрос может сгенерировать вызов, скажем, 12 файлов синтаксиса.
SET MPRINT=yes.
!runall stem=question0000 nb=12.