/* REXX POS Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY POS('IS','TSOISPF')                /* Ausgabe: 4           */
SAY POS('is','TSOISPF')                /* Ausgabe: 0 not found */
SAY POS('SOI','TSOISPFTSOISPF',5)      /* Ausgabe: 9           */
SAY POS('SOI','TSOISPFTSOISPF')        /* Ausgabe: 2           */