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.