Formatando dados com Máscaras - USING EDIT MASK

*  Opa pessoal, vou mostrar hoje como mostrar os dados de uma variável
* ou campo qualquer da forma que o user quer ver, existem algumas funções
* que fazem isso, mas as vezes o User que algo fora do padrão, e pra gente
* não desenvolver uma função para tratar isso existe um comando que
* conseguirá te ajudar muito que é o 'USING EDIT MASK' que substitui os
* Underline '_' pelo respectivo numero, veja abaixo um exemplinho legar.

*  Podemos usar esse comando para mostrar CPF, CNPJ, PIS, data e Qualquer
* coisa que tenha máscara de exibição, Bons estudos.


REPORT z_using_edit_mask.

* Reparem nos tamanhos das variáveis que vão trabalhar como retorno.
data :
  vg_number TYPE i,
  vg_return(70) TYPE c,
  vg_retNum(15) TYPE c
  .

vg_number = '123456789'.


*  Aki estaremos passando os valores da variável para uma outra variável,
* mas com uma máscara que você define, assim mostrando oq o User quer sem
* mudar nada na variável principal.
write vg_number USING EDIT MASK
      '_ _ _ indiozinhos, _ _ _ indi... Assim vai a_é pass_r o tamanho d_ variável'
      to vg_return.

*  Aqui os valores são conforme acima mas só que um pouco mais perto da
* realidade
write vg_number USING EDIT MASK
      '__,__._,_,___'
      to vg_retnum.

*  Retorno na tela.
WRITE : vg_return, / , /
        vg_retnum
.