IDENTIFICATION DIVISION. 
PROGRAM-ID. PROGRAM1. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   10/02/2011.   
 
 
 
DATA DIVISION. 
WORKING-STORAGE SECTION.
       77  nome   PIC A(010) value "João". 
       77  a      PIC 99V999 VALUE 3.236 .
       77  b      PIC 99V99  VALUE 5.22 .
       77  soma   PIC 99V99.  
 
PROCEDURE DIVISION.
 
           IF a < b
		display "A variável nome é",nome 
                ADD a TO b ROUNDED
                DISPLAY "b é ", b
           ELSE
                soma = a + b
                DISPLAY "d é ", a + b
           END-IF
 
STOP RUN. 

SURFTlRJRklDQVRJT04gRElWSVNJT04uIApQUk9HUkFNLUlELiBQUk9HUkFNMS4gCkFVVEhPUi4gQW50b25pbyBOZXV0b24gZGEgU2lsdmEgSsO6bmlvcgpEQVRFLVdSSVRURU4uICAgMTAvMDIvMjAxMS4gICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKCiAKREFUQSBESVZJU0lPTi4gCldPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgIG5vbWUgICBQSUMgQSgwMTApIHZhbHVlICJKb8OjbyIuIAogICAgICAgNzcgIGEgICAgICBQSUMgOTlWOTk5IFZBTFVFIDMuMjM2IC4KICAgICAgIDc3ICBiICAgICAgUElDIDk5Vjk5ICBWQUxVRSA1LjIyIC4KICAgICAgIDc3ICBzb21hICAgUElDIDk5Vjk5LiAgCiAgICAgICAgICAgICAgICAKUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgICAgCiAgICAgICAgICAgSUYgYSA8IGIKCQlkaXNwbGF5ICJBIHZhcmnDoXZlbCBub21lIMOpIixub21lIAogICAgICAgICAgICAgICAgQUREIGEgVE8gYiBST1VOREVECiAgICAgICAgICAgICAgICBESVNQTEFZICJiIMOpICIsIGIKICAgICAgICAgICBFTFNFCiAgICAgICAgICAgICAgICBzb21hID0gYSArIGIKICAgICAgICAgICAgICAgIERJU1BMQVkgImQgw6kgIiwgYSArIGIKICAgICAgICAgICBFTkQtSUYKICAgICAgICAgICAKU1RPUCBSVU4uIA==