COBOL - Coding your program - Using COMPUTE and other arithmetic statements



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Codificando seu programa - Usando COMPUTE e outras instruções aritméticas
Enterprise COBOL for z/OS, Version 4.2

Use a instrução COMPUTE para a maioria das avaliações aritméticas em vez das instruções ADD, SUBTRACT, MULTIPLY e DIVIDE.
Freqüentemente, você pode codificar apenas uma instrução COMPUTE em vez de várias instruções aritméticas individuais.

A instrução COMPUTE atribui o resultado de uma expressão aritmética a um ou mais itens de dados:

           COMPUTE Z     = A + B / C ** D - E
           COMPUTE X Y Z = A + B / C ** D - E

Alguns cálculos aritméticos podem ser mais intuitivos usando declarações aritméticas diferentes de COMPUTE.
Por exemplo:

COMPUTE Declarações aritméticas equivalentes
COMPUTE INCREMENT = INCREMENT + 1
ADD 1 TO INCREMENT
COMPUTE BALANCE = BALANCE - OVERDRAFT
SUBTRACT OVERDRAFT FROM BALANCE
COMPUTE INCREMENTONE   = INCREMENTONE + 1
COMPUTE INCREMENTTWO   = INCREMENTTWO + 1
COMPUTE INCREMENTTHREE = INCREMENTTHREE + 1
ADD 1 TO INCREMENTONE INCREMENTTWO INCREMENTTHREE

Você também pode preferir usar a instrução DIVIDE (com sua frase REMAINDER) para a divisão na qual deseja processar um resto.
A função intrínseca REM também fornece a capacidade de processar um resto.

Ao realizar cálculos aritméticos, você pode usar itens de dados decimais nacionais como operandos, assim como usa itens de dados decimais zoneados.
Você também pode usar itens de dados de ponto flutuante nacionais como operandos, da mesma forma que usa operandos de ponto flutuante de exibição.

Conceitos relacionados

Tarefas relacionadas



© Copyright IBM Corp.