ABBREV - Vergleich moeglicher Abkuerzungen

REXX Built-In Funktionen
Zeichenkette prüfen

Syntax:                                 
ABBREV(info,abk<,laenge>)

/* REXX ABBREV Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY ABBREV('TSOISPF','TSO')       /* Ausgabe: 1            */
SAY ABBREV('TSOISPF','Tso')       /* Ausgabe: 0 not abbrev */
SAY ABBREV('TSOISPF','TSO',4)     /* Ausgabe: 0 not abbrev */
SAY ABBREV('TSOISPF','',1)        /* Ausgabe: 0 not abbrev */
SAY ABBREV('TSOISPF','')          /* Ausgabe: 1            */
          /* kann als Default verwendet werden!            */