*TRANSLATE ( operand
|
, | LOWER
|
)
|
||
UPPER
|
Format/length: same as operand.
This document covers the following topics:
The Natural system function *TRANSLATE
converts the
characters of an alphanumerical or binary operand to upper case or lower case.
The content of the operand is not modified.
*TRANSLATE
may be specified as an operand in any
position of a statement wherever an operand of format A, U or B is allowed.
When using the system function *TRANSLATE
, the
following restrictions apply:
*TRANSLATE
must not be used where a target
variable is expected.
You may not nest *TRANSLATE
in a system
function.
Operand | Possible Structure | Possible Formats | Referencing Permitted | Dynamic Definition | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand
|
C | S | A | A | U | B | yes | no |
Syntax Element Description:
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
Output:
Source string to be translated..........: aBcDeFg !§$%&/()=? Source string translated into upper case: ABCDEFG !§$%&/()=? Source string translated into lower case: abcdefg !§$%&/()=?