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
DATA LIST LIST /a1 TO a5.
BEGIN DATA
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
END DATA.
LIST.

COMPUTE idx=$CASENUM.
VECTOR a=a1 TO a5 /n(25F8).
LOOP cnt=1 TO 5.
COMPUTE n((idx-1)*5+cnt)=a(cnt).
END LOOP.

COMPUTE nobreak=1.
* "Вытягиваем" 5 наблюдений в одну линию.

AGGREGATE
  /OUTFILE=*
  /BREAK=nobreak
  /n1 TO n25 = MAX(n1 TO n25).

* Если требуется вектор-столбец, снимите комментарии со следующих двух строк.
*FLIP.
*SELECT IF RTRIM(case_lbl) <>"NOBREAK".