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
* Извлечь 2 последних значения из набора повторных измерений.
* В примере ниже для первого наблюдения
  нам нужно извлечь 4 и 6, для второго - 5 и 8, и т.д.
* Автор: rlevesque@videotron.ca.

* Пример данных.
DATA LIST LIST /a1 TO a4.
BEGIN DATA
1 3  4 6
2 5 8 .
2 3 4 3
1 4 . .
5 . . .
END DATA.
LIST.

* Решение.
VECTOR a=a1 TO a4.
LOOP #cnt=4 TO 1 BY -1.
DO IF ~MISSING(a(#cnt)).
IF #cnt>1 anl=a(#cnt-1).
COMPUTE al=a(#cnt).
BREAK.
END IF.
END LOOP.
EXECUTE.