* ==== TYPE: ST-ADD-ROUNDED ====
      * FEATURE: ADD ROUNDED
      * STATEMENT: ADD ROUNDED
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDRND.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-VAL1    PIC 9(3) VALUE 100.
       01 WS-VAL2    PIC 9(5) VALUE 200.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           ADD WS-VAL1 TO WS-VAL2 GIVING WS-RESULT ROUNDED.
           IF WS-RESULT = 300
               DISPLAY 'OK: 100.00+200.00=300.00'
           ELSE
               DISPLAY 'ERROR: WRONG SUM'.
           STOP RUN.