1 buffer PIC X(80).
1 numtokens PIC 999.
1 tokens occurs 40 times.
5 token pic x(n) value `0`.
MOVE ` testing testing2 ` TO buffer.
TOKENIZE buffer numtokens tokens ` `.
DISPLAY `[` & tokens(1) & `]`.
DISPLAY `[` & tokens(2) & `]`.
DISPLAY `[` & tokens(3) & `]`.
DISPLAY `[` & tokens(4) & `]`.