TRANSLATE - Zeichenkette uebersetzen

REXX Built-In Funktionen
Manipulation der Zeichenkette

Syntax:                                 
TRANSLATE(info<,<tabout><,<tabin><,fuell>>>)

/* REXX TRANSLATE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "Yves Colliard Software"
a2 = "abcdefgh"
ti  = "aceg"
to1 = "1234"
to2 = "12"
  /* */
SAY TRANSLATE(a1)             /* Ausgabe: YVES COLLIARD SOFTWARE */
SAY TRANSLATE(a2,to1,ti)      /* Ausgabe: "1b2d3f4h"             */
SAY TRANSLATE(a1,"-"," ")     /* Ausgabe: Yves-Colliard-Software */
SAY TRANSLATE(a2,to2,ti,"-")  /* Ausgabe: "1b2d-f-h"             */
  /* */
    /* Uhrzeit ohne ":" nicht schlecht! */
say TRANSLATE(ABDEGH,"01:02:03",AB1DE2GH) /* Ausgabe: "010203"   */
    /* Datum in umgekehrte Reihenfolge! */
say TRANSLATE(GHDEAB,"01/02/08",AB1DE2GH) /* Ausgabe: "080201"   */