*TRANSLATE (operand
|
|
, |
|
|
|
)
|
Format/Länge: wie bei operand.
Die folgenden Themen werden behandelt:
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.
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.
| Operand | Mögliche Struktur | Mögliche Formate | Referenzierung erlaubt | Dynam. Definition | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| operand | C | S | A | A | U | B | ja | nein | ||||||||||||
Syntax-Elementbeschreibung:
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 !§$%&/()=?
