IDENTIFICATION DIVISION.
       PROGRAM-ID. RoundedTest.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9V9 VALUE 1.4.
       01 B PIC 9V9 VALUE 1.4.
       01 C PIC 9.
       PROCEDURE DIVISION.
           ADD A TO B GIVING C ROUNDED
           DISPLAY C
           STOP RUN.