/*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.'