* ==== TYPE: ST-ADD-GIVING ====
      * FEATURE: ADD ... GIVING (single and multi-source)
      * STATEMENT: ADD
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDGIV.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-A       PIC 9(5) VALUE 30.
       01 WS-B       PIC 9(5) VALUE 20.
       01 WS-SUM     PIC 9(5) VALUE 0.
       01 WS-TOTAL   PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           ADD 10 TO WS-A GIVING WS-SUM.
           ADD WS-A WS-B GIVING WS-TOTAL.
           IF WS-TOTAL = 60
               DISPLAY 'OK: 30+10+20=60'
           ELSE
               DISPLAY 'ERROR: WRONG SUM'.
           STOP RUN.