Запуск макроса с разными наборами параметров… (пример 2)

* Как мне запусить макрос для каждого значения из файла параметров?.
* Автор: Ray, 27.10.2002.

DATA LIST LIST /StockID(F8)  CoName(A12).
BEGIN DATA
2343                  'Systex'
2301                  'Guanbou'
2302                  'Company 1'
2303                  'Company 2'
2304                  'Company 3'
END DATA.
LIST.

SAVE OUTFILE='c:\\temp\\stockid.sav'.


DEFINE  !stkana (stkid =!TOKEN(1))
/* содержимое макроса - пишем сюда все, что нам надо */
COMPUTE stk=!stkid.
/* Конец содержимого */
!ENDDEFINE.


*** содержательная часть ответа на вопрос ***.
GET FILE='c:\\temp\\stockid.sav'.
WRITE OUTFILE='c:\\temp\\code.sps' 
	/'!stkana stkid='stockid'.'.
EXECUTE.

SET MPRINT=yes.
INCLUDE 'c:\\temp\\code.sps'.
EXECUTE.