/* REXX WORDPOS Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "REXX TSOISPF KURS"
a2 = "Yves Colliard Software"
a3 = "REXX   TSO ISPF   KURS TSO"
  /* */
SAY WORDPOS("KURS",a1)                   /* Ausgabe: 3          */
SAY WORDPOS("Colliard   Software",a2)    /* Ausgabe: 2          */
SAY WORDPOS("TSO",a3,3)                  /* Ausgabe: 5          */
SAY WORDPOS("HUG",a3)                    /* Ausgabe: 0 not fnd  */