IDENTIFICATION DIVISION.
PROGRAM-ID. ADD-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VAL1          PIC 9(3) VALUE 7.
01 WS-VAL2          PIC 9(3) VALUE 12.
01 WS-SOMME          PIC 9(4).

PROCEDURE DIVISION.
  ADD WS-VAL1 TO WS-VAL2 GIVING WS-SOMME.
  DISPLAY "La somme est : " WS-SOMME.
  STOP RUN.