1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
* Разложить строку посимвольно на несколько переменных.

DATA LIST LIST /rfrdd(A8).
BEGIN DATA
AVDT
AF
ABCDEFG
END DATA.

VECTOR v(8A1).
COMPUTE #n=LENGTH(RTRIM(rfrdd)).
LOOP #cnt=1 TO #n.
- COMPUTE v(#cnt)=SUBSTR(rfrdd,#cnt,1) .
END LOOP.
EXECUTE.