IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.                                      
REPORT
ENVIRONMENT DIVISION. 
 
DATA DIVISION. 
WORKING-STORAGE SECTION.
       77  myvar  PIC A(010) value "João" 
       77  myvar2 PIC X(008) value "Teste3" 
       77  a      PIC 99V999 VALUE 12.236 
       77  b      PIC 99V99  VALUE "ZERO" 
       77  c      PIC 9V9    VALUE 3.9 
       77  d      PIC 9v9    VALUE 2.1 
 
       PROCEDURE DIVISION.
           DISPLAY "myvar é ", myvar
           IF a < b 
           	ADD a TO b ROUNDED
           	DISPLAY "b é ", b
           ELSE	
           	ADD c TO d
           	DISPLAY "d é ", d
           END-IF
           DISPLAY "myvar2 é", myvar2
 
STOP RUN
 

SURFTlRJRklDQVRJT04gRElWSVNJT04uIApQUk9HUkFNLUlELiBIRUxMTy1XT1JMRC4gCkFVVEhPUi4gQW50b25pbyBOZXV0b24gZGEgU2lsdmEgSsO6bmlvcgpEQVRFLVdSSVRURU4uICAgMDMvMDIvMjAxMS4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIApSRVBPUlQKRU5WSVJPTk1FTlQgRElWSVNJT04uIAoKREFUQSBESVZJU0lPTi4gCldPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgIG15dmFyICBQSUMgQSgwMTApIHZhbHVlICJKb8OjbyIgCiAgICAgICA3NyAgbXl2YXIyIFBJQyBYKDAwOCkgdmFsdWUgIlRlc3RlMyIgCiAgICAgICA3NyAgYSAgICAgIFBJQyA5OVY5OTkgVkFMVUUgMTIuMjM2IAogICAgICAgNzcgIGIgICAgICBQSUMgOTlWOTkgIFZBTFVFICJaRVJPIiAKICAgICAgIDc3ICBjICAgICAgUElDIDlWOSAgICBWQUxVRSAzLjkgCiAgICAgICA3NyAgZCAgICAgIFBJQyA5djkgICAgVkFMVUUgMi4xIAogICAgICAgICAgCiAgICAgICBQUk9DRURVUkUgRElWSVNJT04uCiAgICAgICAgICAgRElTUExBWSAibXl2YXIgw6kgIiwgbXl2YXIKICAgICAgICAgICBJRiBhIDwgYiAKICAgICAgICAgICAJQUREIGEgVE8gYiBST1VOREVECiAgICAgICAgICAgCURJU1BMQVkgImIgw6kgIiwgYgogICAgICAgICAgIEVMU0UJCiAgICAgICAgICAgCUFERCBjIFRPIGQKICAgICAgICAgICAJRElTUExBWSAiZCDDqSAiLCBkCiAgICAgICAgICAgRU5ELUlGCiAgICAgICAgICAgRElTUExBWSAibXl2YXIyIMOpIiwgbXl2YXIyCgpTVE9QIFJVTgo=