*TRANSLATE - Umsetzung in Groß-/Kleinschreibung

*TRANSLATE (operand

,

LOWER
UPPER

)

Format/Länge: wie bei operand.

Die folgenden Themen werden behandelt:


Funktion

Die Systemfunktion *TRANSLATE dient zum Umsetzen von Zeichen eines Operanden mit Alphanumerischem oder binärem Format in Groß- oder Kleinbuchstaben. Der Inhalt des Operanden bleibt dabei unverändert.

*TRANSLATE kann als operand an jeder Stelle eines Statements angegeben werden, an der ein Operand mit Format A oder B zulässig ist.

Einschränkungen

Für die Verwendung der Systemfunktion *TRANSLATE gelten folgende Einschränkungen:

  • *TRANSLATE darf nicht an Stellen verwendet werden, an denen eine Zielvariable erwartet wird.

  • *TRANSLATE darf nicht in einer anderen Systemfunktion verschachtelt werden.

Syntax-Beschreibung

Operanden-Definitionstabelle:

Operand Mögliche Struktur Mögliche Formate Referenzierung erlaubt Dynam. Definition
operand C S A     A U  B                     ja nein

Syntax-Elementbeschreibung:

*TRANSLATE (operand,LOWER)
Umsetzung in Kleinbuchstaben
Bei Angabe des Schlüsselworts LOWER als zweites Argument angegeben wird die Zeichenkette in operand in Kleinbuchstaben umgesetzt.
*TRANSLATE (operand,UPPER)
Umsetzung in Großbuchstaben
Bei Angabe des Schlüsselworts UPPER als zweites Argument angegeben wird die Zeichenkette in operand in Großbuchstaben umgesetzt.

Beispiel

DEFINE DATA LOCAL
1 #SRC  (A)DYNAMIC INIT <'aBcDeFg !§$%&/()=?'>
1 #DEST (A)DYNAMIC
END-DEFINE
*
PRINT 'Source string to be translated:..........' #SRC
*
MOVE *TRANSLATE(#SRC, UPPER) TO #DEST
PRINT 'Source string translated into upper case:' #DEST
*
MOVE *TRANSLATE(#SRC, LOWER) TO #DEST
PRINT 'Source string translated into lower case:' #DEST
END

Ausgabe:

Source string to be translated:.......... aBcDeFg !§$%&/()=?

Source string translated into upper case: ABCDEFG !§$%&/()=?

Source string translated into lower case: abcdefg !§$%&/()=?