1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
* Требуется добавить в конец файла записи вида 
* 4 d
* 5 e
* и т.д.

* Автор: Raynald Levesque, 7.4.2004.

DATA LIST LIST /var1(F8) var2(A1).
BEGIN DATA
1     a
2     b
3     c 
END DATA.

* Находим последнюю запись файла.
COMPUTE nobreak=1.
ADD FILES FILE=* /BY=nobreak /LAST=last.
STRING #alpha(A26).
COMPUTE #alpha="abcdefghijklmnopqrstuvwxyz".

* Добавим 3 записи в конец файла (можно использовать любое число вместо 3).
LOOP #cnt=1 TO 1 + 3*last .
- DO IF #cnt > 1.
-   COMPUTE var1=var1 + 1.
-   COMPUTE var2=SUBSTR(#alpha,var1,1).
- END IF. 
- XSAVE OUTFILE='c:\\temp\\extended file.sav' /DROP=nobreak last.
END LOOP.
EXECUTE.

GET FILE='c:\\temp\\extended file.sav'.
LIST.