1
resposta

Máscara e decimais

Boa tarde professor!

Eu sou coboleira a 3 anos já e sempre apanho nessa questão de mascara e número decimal.

Queria tirar uma duvida com você. Vou colocar um número para exemplificar.

Segue o valor 000006789123456. Como posso escrever a variável para que seja retirado os 0 e colocar os dois ultimos números como decimais? Ele está assim: 000006789123456 e eu quero que fique assim 67.891.234,56.

Obrigada professor.

1 resposta

Boa tarde Érylin. Não tenho certeza se funciona. Precisaria fazer um teste:

Na WORKING-STOREAGE:

77 WRK-MEU-VALOR                 PIC 9(15) VALUE 000006789123456.
77 WRK-MASCARA                     PIC Z.ZZZ.ZZZ.ZZZ,99.

Na PROCEDURE:

MOVE WRK-MEU-VALOR       TO     WRK-MASCARA.

DISPLAY 'MEU VALOR SEM MASCARA: ' WRK-MEU-VALOR.
DISPLAY 'VALOR MASCARADO: ' WRK-MASCARA.

Espero que funcione! Ricardo.