IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.                                      
DATE-COMPILED. 
* 
ENVIRONMENT DIVISION. 
* 
DATA DIVISION. 
* 
PROCEDURE DIVISION. 
 MOVE FUNCTION CURRENT-DATE TO WS-DATA-CORRENTE               
           STRING                                                       
                 'IPIRANGA, '          DELIMITED BY SIZE                
                 WS-DIA                DELIMITED BY SIZE                
                 ' de '                DELIMITED BY SIZE                
                 NOME-MES ( WS-MES )   DELIMITED BY SPACES              
                 ' de '                DELIMITED BY SIZE                
                 WS-ANO-INTEIRO        DELIMITED BY SIZE                
                 '.'                   DELIMITED BY SIZE                
                 INTO WS-DATA-EXTENSO                                   
           END-STRING                                                                               
           DISPLAY 'Data do dia ...... : ' WS-DATA-EXTENSO              
           GOBACK.
* 
STOP RUN.