String variable contains items separated by a slash

*(Q) My string variable has a variable number of 4 character items separated by '/'
* for instance C206/E210/F210 contains C206 E210 and F210.
* How can I asssign each of these elements to a different variable?

(A) by Raynald Levesque 2002/04/30.


DATA LIST LIST /a(A70).
BEGIN DATA
C206/E210/F210
E206/P206/F210/G210/X210
END DATA.
LIST.

VECTOR B(7A4).

DO REPEAT v=b1 TO b5 /b=1 6 11 16 21 /e=4 9 14 19 24.
COMPUTE v=SUBSTR(a,b,e).
END REPEAT PRINT.
EXECUTE.