1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
* Цель: сохранить файл с текущей датой в качестве части имени.
* rlevesque@videotron.ca, 24.05.2004.

* Создадим пример данных.
DATA LIST FREE /a.
BEGIN DATA 
1 2 3 
END DATA.

* Создадим макрос, который будет определять текущую дату.
STRING #cdate(A9).
COMPUTE #cdate=$DATE.
DO IF $casenum=1.
WRITE OUTFILE 'c:\\temp\\temp.sps' /"DEFINE !date()'"#cdate"'!ENDDEFINE.".
END IF.
EXECUTE.
* Используем макрос.
INCLUDE 'c:\\temp\\temp.sps'.

SAVE OUTFILE='c:\\temp\\example1_' + !date + '.sav'.