COBOL - DATA DIVISION - DDE - USAGE clause - Computational items
Um item computacional é um valor usado em operações aritméticas. Deve ser numérico. Se um item de grupo for descrito com um uso computacional, os itens elementares dentro do grupo terão esse uso.
O comprimento máximo de um item computacional é de 18 dígitos decimais, exceto para um item DECIMAL EM PACOTES. Se a opção do compilador ARITH (COMPAT) estiver em vigor, o comprimento máximo de um item PACKED-DECIMAL será de 18 dígitos decimais. Se a opção do compilador ARITH (EXTEND) estiver em vigor, o comprimento máximo de um item PACKED-DECIMAL será de 31 dígitos decimais.
A PICTURE de um item computacional pode conter apenas:
Os itens COMPUTATIONAL-1 e COMPUTATIONAL-2 (ponto flutuante interno) não podem ter seqüências de caracteres PICTURE.
A quantidade de armazenamento ocupada por um item binário depende do número de dígitos decimais definido em sua cláusula PICTURE:
Os dados binários são big-endian: o sinal operacional está contido no bit mais à esquerda.
Os itens de dados BINARY, COMPUTATIONAL e COMPUTATIONAL-4 podem ser afetados pela opção do compilador TRUNC. Para obter informações sobre o efeito dessa opção do compilador, consulte TRUNC.
A representação de sinal usa a mesma configuração de bit que a representação de sinal de 4 bits em campos decimais zoneados.
A opção do compilador TRUNC (BIN) faz com que todos os itens de dados binários (USAGE BINARY, COMP, COMP-4) sejam manipulados como se fossem declarados USAGE COMP-5.
A tabela a seguir mostra várias seqüências de caracteres de imagem, a representação de armazenamento resultante e o intervalo de valores para itens de dados descritos em USAGE COMP-5.
A picture para um item de dados COMP-5 pode especificar um fator de escala (ou seja, posições decimais ou posições inteiras implícitas). Nesse caso, as capacidades máximas listadas na tabela acima devem ser dimensionadas adequadamente. Por exemplo, um item de dados descrito no PICTURE S99V99 COMP-5 é representado no armazenamento como uma meia palavra binária e suporta um intervalo de valores de -327,68 a +327,67.
NOTA DE USO: Quando a frase ON SIZE ERROR é usada em uma instrução aritmética e um receptor é definido com USAGE COMP-5, o valor máximo que o receptor pode conter é o valor implícito na seqüência de caracteres PICTURE decimal do item. Qualquer tentativa de armazenar um valor maior que esse máximo resultará em uma condição de erro de tamanho.