Por meio do uso de mascaras de edição, é possível no COBOL a apresentar valores numéricos de formas variadas. Assim, neste post será demonstrado algumas dessas mascaras!
Primeiramente temos o valor 12732234 que será armazenado na variável GDA-NR-SMLC PIC 9(009), e posteriormente este valor será movimentado para as variáveis que estão definidas com a mascara.
As variáveis usadas para a demonstração do uso das mascaras de edição, são:
* -- GUARDA O NUMERO
PARA SIMULACAO DE APLICACAO DAS MASCARAS
77 GDA-NR-SMLC
PIC 9(009) VALUE ZEROS.
*
* -- GUARDA O NUMERO COM ZEROS A ESQUERDA E SINAL
77 GDA-VL-COM-ZEROS PIC
9(009) VALUE ZEROS.
*
* -- GUARDA O NUMERO SEM ZEROS A ESQUERDA E SINAL
* SOMENTE MOSTRA O SINAL QUANDO O NUMERO NEGATIVO
77 GDA-VL-SEM-ZEROS PIC
--------9 VALUE ZEROS.
*
* -- GUARDA O NUMERO SEM ZEROS A ESQUERDA E SINAL
* MOSTRA O SINAL TAMBEM PARA OS NUMEROS POSITIVOS
77 GDA-VL-SEM-ZEROS-SNL PIC ++++++++9
VALUE ZEROS.
*
* -- GUARDA O NUMERO FORMATADO PARA A MASCARA DE DATA DD/MM/AAAA
77 GDA-DATA
PIC ZZ/ZZ/ZZZZ.
*
* -- GUARDA O NUMERO FORMATADO PARA O VALOR R$
77 GDA-VALOR
PIC -999.999,99.
*
* -- GUARDA O NUMERO FORMATADO PARA O VALOR R$ E SINAL
77 GDA-VALOR-SNL
PIC S9(09)V9(2).
- DISPLAY GDA-VL-COM-ZEROS, apresenta: 012732234
Definição da variável: PIC 9(009)
Note que o valor 12732234 possui um "0" na frente. Pois, o valor é menor que o tamanho suportado por está variável, assim, as casas numéricas não usadas será apresentada com zero.
- DISPLAY GDA-VL-SEM-ZEROS, apresenta: 12732234
Definição da variável: PIC --------9
Deste modo o valor não possui o zero na frente, e também não há sinalização. Sendo que se o valor fosse negativo, seria apresentado um sinal "-" de negativo para o valor.
- DISPLAY GDA-VL-SEM-ZEROS-SNL, apresenta: +12732234
Definição da variável: PIC ++++++++9
Com essa mascara se o valor positivo será apresentado com o sinal "+" na frente do número. E se o valor negativo será apresentado com o sinal "-" na frente do número. De qualquer modo a sinalização do valor aparecerá.
- DISPLAY GDA-DATA, apresenta: 12/73/2234
Definição da variável: PIC ZZ/ZZ/ZZZZ
Neste tipo de definição o valor será apresentado no formato de data DD/MM/AAAA.
- DISPLAY GDA-VALOR, apresenta: 732.234,00
Definição da variável: PIC -999.999,99
Para apresentar o valor no formato de R$. Lembrando que com o uso de "-" na definição da variável somente aparecerá o sinal se o valor for negativo.
- DISPLAY GDA-VALOR-SNL, apresenta: +012732234.00
Definição da variável: PIC S9(09)V9(2)
Com está definição o valor será sinalizado para positivos e negativos, também apresentando os zeros a esquerda.
Como se trata de mascaras de edição, é uma boa pratica utiliza-las somente para a apresentação do valor final. Ou seja, não é comum usar variáveis definidas com algumas mascaras para realizar o processamento dos dados.
Como se trata de mascaras de edição, é uma boa pratica utiliza-las somente para a apresentação do valor final. Ou seja, não é comum usar variáveis definidas com algumas mascaras para realizar o processamento dos dados.
