*TRANSLATE (operand

,

LOWER UPPER

)

Format/Länge: wie bei operand.

Die folgenden Themen werden behandelt:

• Funktion

• Einschränkungen

• Syntax-Beschreibung

• Beispiel

---

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 !§$%&/()=?