TRANSLATE ... TO LOWER / UPPER CASE e USING

*  Fala Galera, hoje vou mostrar como deixar a informação de uma variável
* em maiuscula ou minuscula, será usada o comando 'TRANSLATE' e de brinde
* O código abaixo ainda tem uma dica para substituição de caracteres por
* outro usando o mesmo comando, Bons estudos !!!
*&---------------------------------------------------------------------*
REPORT Traslate.

* Criação da variável que iremos trabalhar.
data :
  vg_teste TYPE string VALUE ' Teste AbcDeFhiJ1'.

*  Aqui nos transformamos todos os caracteres do valor da variável em
* minusculo.
TRANSLATE vg_teste to LOWER CASE.

BREAK-POINT.

*  Agora vamos deixar todos os valores que em maiusculos
TRANSLATE vg_teste TO UPPER CASE.

BREAK-POINT.

*  Ahhh, agora tá o que eu descobri faz pouco tempo, a substituição de
* caracteres conforme informação passado após o Using.
*  O mais interessante é que os caracteres de numero Impar são substituidos
* pelos caracteres pares sequentes.
*  Exemplo abaixo. O caracter 'T' será substituido pelo caracter 'A',
* 'S' por 'B' e '1' por '2'.
TRANSLATE vg_teste USING 'TASB12'.
* translate vg_teste using : 'TA', 'SB', '12'. é a mesma coisa.

BREAK-POINT.
*  Percebam que o caracter 'A' não foi substituido por 'T', isso porque o
* comando é unilateral, sempre do Impar pro par sequente, Dahora né .


* Outra dica e que funciona com vazios tb. rsrs.
TRANSLATE vg_teste USING 'E '.

BREAK-POINT.

*  Executem Break a Break e vejam as auterações feitas durante o processo.
WRITE : vg_teste.