Parse a string into one letter per variable

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.