MOVE 1 TO W-POS
PERFORM VARYING IX FROM 1 BY 1
UNTIL INDX > 25
OR WS-STRING(W-POS:) = SPACES
UNSTRING WS-STRING DELIMITED BY ' '
INTO TAB-WORD(IX)
WITH POINTER W-POS
END-PERFORM.
SUBTRACT 1 FROM IX GIVING NUM-WORDS
Hi Guy,
I tried your code and I have one small correction:
Code:
MOVE 1 TO W-POS
PERFORM VARYING IX FROM 1 BY 1
UNTIL IX > 25
OR WS-STRING(W-POS:) = SPACES
UNSTRING WS-STRING DELIMITED BY ALL ' '
INTO TAB-WORD(IX)
WITH POINTER W-POS
END-PERFORM.
SUBTRACT 1 FROM IX GIVING NUM-WORDS