*-----------------------------------------------------------------
       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.