Cobol - Ejemplo Add

WORKING-STORAGE SECTION.
01 VALORES.
02 UNO PIC 99 VALUE 10.
02 DOS PIC 9(6) VALUE 280.
02 TRES PIC 9(4) VALUE 540.
01 OTROS
02OTRO1 PIC 9.
02 DOS PIC 9(6) VALUE 110.
01 RESULTADO PIC S9(8) VALUE 10.
01 RESTO PIC 99.
PROCEDURE DIVISION.
INICIO.

Formato 1:
ADD UNO TRES 5 TORESULTADO.
Se sumarán todas las variables o literales numéricos (cifras) al valor de la variable que se de a continuación del TO, guardandose el resultadotambién en ésta última.Por tanto al realizar ésta operación el valor de la variable RESULTADO, será de: 10 (de la variable UNO) + 540 (de la variable TRES) + 5 + 10 (deResultado) = 565.
Como veis UNO + TRES + 5 suman 555 pero ésto se suma al valor que ya tenía la variable RESULTADO, con lo que la suma total es de 565.

Esteformato se usa mucho para hacer de contador y hacer que una varable aumente en uno su valor poniendo:
ADD 1 TO RESULTADO.

Formato 2:
ADD UNO TRES 5 GIVINGRESULTADO.

En éste caso la variable RESULTADO tendrá el valor de la suma de las variables anteriores, sin tener en cuenta su valor inicial, es decir, será de: 10(de la variable UNO) + 540 (de la variable TRES) + 5 = 555.
Formato 3:
ADD CORR VALORES TO OTROS.

Con éste formato conseguimos que las variables del campocompuesto VALORES se sumen al valor de las variables con el mismo nombre del campo compuesto OTROS, obteniendo como resultado: 280 (de la variable DOS del campoVALORES) + 110 (de la variable DOS del campo OTROS) = 390.
Si hubiera coincidido alguna variable mas con el mismo nombre en ambos campos también se hubiese sumado.