Cuando se realizan operaciones aritméticas en cobol, la estructura de las operaciones son las siguiente:
Suma:
Si queremos sumar a un campo1 el valor del campo2, la sentencia es
ADD campo2 TO campo1
si deseamos además de sumarle este valor, guardarlo en una variable en lugar de guardarlo en el propio campo1, la sentencia en ese caso es:
ADD campo2 TO campo1 GIVING variable
siendo la palabra reservada GIVING opcional y de ahora en adelante los ejemplos se mostrarán incluyendola siempre que querramos guardar el valor de una operación en una variable diferente a las que utilizamos en la operación aritmética.
Resta:
Si deseamos restar el campo2 al valor del campo1
SUBTRACT campo2 FROM campo1 GIVING variable
Multiplicación:
MULTIPLY campo2 BY campo1 GIVING variable
División:
Si queremos dividir el campo1 por el valor del campo 2
DIVIDE campo2 BY campo1 GIVING variable
Existe otra sentencia en la que engloba a todas las demas, que es la sentencia COMPUTE, pero la misma es mas pesada correrla para el sistema, pero no habrá problemas en programas chicos, un ejemplo:
COMPUTE variable = campo1+campo2
COMPUTE variable = campo1*campo2
COMPUTE variable = campo1/campo2
COMPUTE variable = campo2-campo1
Espero les haya servido a los que estaban buscando información sobre este tema.
hola, soy nueva en esto y tengo una duda, si utilizo la sentencia COMPUTE para operaciones simples, por ejemplo esta sumar:
ResponderEliminarCOMPUTE Resultado=10+10. Sin utilizar campos ni nada, y despues que me muestre el resultado. La unica variable que se definiría en la parte de WORKING STORAGE seria "resultado"? yo lo tengo definido así: 01 Resultado PIC 9(2) es correcto ponerlo de esta manera? o le falta algo