Para converter uma saída de dados em uma pré formatação é necessario utilizar o argumento EDIT MASK do comando WRITE, podendo mover o valor formatado para uma variavel ou diretamente para a impressão de uma lista:

WRITE  valor  TO VARIVEL: Move um valor para uma variavel, equivalente ao comando MOVE valor To Variavel.  Para Formatar o valor é necessario utilizar a sintaxe:

WRITE valor_nao_formatado USING EDIT MASK ‘mascara’ TO variavel.

Exemplo:

REPORT Z_FORMATA.

SPAN { font-family: “Courier New”; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; }DATA: CGC  TYPE c LENGTH 20,
      CGCF TYPE c LENGTH 20.

CGC = 05902635000106.
WRITE CGC USING EDIT MASK ‘RR__.___.___/____-__’ TO CGCF.

WRITE / CGCF.

DATA: TELEFONE  TYPE c LENGTH 14,
      TELEFONEF TYPE c LENGTH 14.

TELEFONE = 1938773344.

WRITE TELEFONE USING EDIT MASK ‘RR(__)____-____’  TO TELEFONEF.

WRITE / TELEFONEF.