FullValue

Obtém extenso de valores.

Sintaxe

FullValue [ NO-MONEY ]
[ FULL literal ]
VALUE valor-numérico
SIZE(1...3)  tamanho-da-linha
TEXT(1...3);linha-de-texto-retornada

Argumentos

NO-MONEY

Trata o valor como não monetário (até 12 inteiros com 2 decimais).

Literal

Carácter
a ser usado como proteção de cheque.

valor-numérico


Valor a ser convertido para extenso.

Tamanho-da-linha

Tamanho limite do texto de retorno da linha (de 1 a 3) .

Linha-de-texto

Texto do extenso obtido, caso o texto não caiba no tamanho especificado para a linha, será feita a separação de sílabas continuando na linha seguinte

Exemplo

EXEC COBOLware FullValue
           VALUE 123,45
           SIZE(1) 50
           TEXT(1);LINHA-CHEQUE-1
           SIZE(2)
70
           TEXT(2);
LINHA-CHEQUE-2
END-EXEC