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.