WORDPOS - Suchen einer Wortkette

REXX Built-In Funktionen
Manipulation der Wortkette

Syntax:                                 
WORDPOS(gesucht,info<,nummer>)

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