13 lines
398 B
Text
13 lines
398 B
Text
|
/*NetRexx program *****************************************************
|
||
|
|
* 20.08.2012 Walter Pachl derived from REXX Version 3
|
||
|
|
**********************************************************************/
|
||
|
|
sss='Hello,How,Are,You,Today'
|
||
|
|
Say 'input string='sss
|
||
|
|
Say ''
|
||
|
|
Say 'Words in the string:'
|
||
|
|
ss =sss.translate(' ',',')
|
||
|
|
Loop i=1 To ss.words()
|
||
|
|
Say ss.word(i)'.'
|
||
|
|
End
|
||
|
|
Say 'End-of-list.'
|