* ==== TYPE: ST-ADD-TO ====
      * FEATURE: ADD x TO y (constant / variable)
      * STATEMENT: ADD
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDTO.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-VALUE   PIC 9(5) VALUE 100.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       01 WS-DELTA   PIC 9(5) VALUE 25.
       PROCEDURE DIVISION.
       MAIN.
           ADD 50 TO WS-VALUE.
           MOVE WS-VALUE TO WS-RESULT.
           ADD WS-DELTA TO WS-RESULT.
           IF WS-RESULT = 175
               DISPLAY 'OK: 100+50+25=175'
           ELSE
               DISPLAY 'ERROR: WRONG VALUE'.
           STOP RUN.