IDENTIFICATION DIVISION.
       PROGRAM-ID.    addition.
       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  myvar PIC 999 .
       77  a  PIC 99V999 VALUE 1.777 .
       77  b  PIC 99V99  VALUE ZERO .
       77  c  PIC 9V9    VALUE 5.5 .
       77  d  PIC 9v9    VALUE 5.5 .

       PROCEDURE DIVISION.
       DISPLAY "Please enter a number"
       ACCEPT myvar
       DISPLAY "That number was ", myvar
       ADD a TO b ROUNDED
       DISPLAY "b is ", b
       ADD c TO d
       DISPLAY "d is ", d
       STOP RUN.