/* REXX WORDLENGTH Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "REXX"
a2 = "Yves Colliard Software"
a3 = "REXX   TSO ISPF   KURS TSO"
a4 = "    "
  /* */
SAY WORDLENGTH(a1,1)                     /* Ausgabe: 4          */
SAY WORDLENGTH(a2,2)                     /* Ausgabe: 8          */
SAY WORDLENGTH(a2,5)                     /* Ausgabe: 0          */
SAY WORDLENGTH(a3,4)                     /* Ausgabe: 4          */
SAY WORDLENGTH(a4,1)                     /* Ausgabe: 0          */