Instrução ADD.

000000 IDENTIFICATION DIVISION.
000000 PROGRAM-ID. IVEE06A.
000000 ENVIRONMENT DIVISION.
000000*---
000000*--- EXEMPLOS DE INSTRUCAO ADD
000000*---
000000 DATA DIVISION.
000000 WORKING-STORAGE SECTION.
000000*
000000 01 VAL-01    PIC 9(5) VALUE 3.
000000 01 VAL-02    PIC 9(5) VALUE 4.
000000 01 VAL-03    PIC 9(5) VALUE 2.
000000 01 VAL-04    PIC 9(5) VALUE 5.
000000 01 VAL-05    PIC 9    VALUE 5.
000000*
000000 01 CONJUNTO-A.
000000    03 VALO1  PIC 9(5) VALUE 3.
000000    03 VALO2  PIC 9(5) VALUE 5.
000000*
000000 01 CONJUNTO-B.
000000    03 VALO1  PIC 9(5) VALUE 4.
000000    03 VALO2  PIC 9(5) VALUE 6.
000000*
000000 PROCEDURE DIVISION.
000000 INICIO.
000000*
000000     DISPLAY "O CONTEUDO DE VAL-01: "    VAL-01      UPON CONSOLE.
000000     DISPLAY "O CONTEUDO DE VAL-02: "    VAL-02      UPON CONSOLE.
000000     DISPLAY "O CONTEUDO DE VAL-03: "    VAL-03      UPON CONSOLE.
000000     DISPLAY "O CONTEUDO DE VAL-04: "    VAL-04      UPON CONSOLE.
000000     DISPLAY "O CONTEUDO DE VAL-05: "    VAL-05      UPON CONSOLE.
000000     DISPLAY "O CONTEUDO DE CONJUNTO-B: " CONJUNTO-B UPON CONSOLE.
000000*
000000     ADD      VAL-01        TO   VAL-02.
000000     ADD      VAL-01        TO   VAL-05 GIVING VAL-04.
000000     ADD      VAL-01 VAL-02 TO   VAL-03.
000000     ADD CORR CONJUNTO-A    TO   CONJUNTO-B.
000000     ADD      VAL-04        TO   VAL-05
000000                       ON SIZE ERROR DISPLAY "ERRO" UPON CONSOLE.
000000*
000000    DISPLAY "O CONTEUDO DE VAL-01: "    VAL-01      UPON CONSOLE.
000000    DISPLAY "O CONTEUDO DE VAL-02: "    VAL-02      UPON CONSOLE.
000000    DISPLAY "O CONTEUDO DE VAL-03: "    VAL-03      UPON CONSOLE.
000000    DISPLAY "O CONTEUDO DE VAL-04: "    VAL-04      UPON CONSOLE.
000000    DISPLAY "O CONTEUDO DE VAL-05: "    VAL-05      UPON CONSOLE.
000000    DISPLAY "O CONTEUDO DE CONJUNTO-B: " CONJUNTO-B UPON CONSOLE.
000000*
000000    STOP RUN.
000000*

A figura acima apresenta exemplos da instrução ADD.