IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.                                      
DATE-COMPILED. 
* 
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 "Por favor insira um número"
           ACCEPT myvar
           DISPLAY "O número é ", myvar
           ADD a TO b ROUNDED
           DISPLAY "b is ", b
           ADD c TO d
           DISPLAY "d is ", d
* 
STOP RUN.