fork download

copy

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.
 

prog.cbl:    12: error: Invalid argument expecting variable, on or before 'WS-DATA-CORRENTE'
prog.cbl:    13: error: undefined variable WS-DATA-CORRENTE, on or before 'STRING'
prog.cbl:    15: error: Invalid argument expecting variable, on or before 'WS-DIA'
prog.cbl:    17: error: Invalid argument expecting variable, on or before 'NOME-MES'
prog.cbl:    17: error: syntax error, on or before '('
prog.cbl:    17: error: variable expected, on or before '('
prog.cbl:    17: error: Invalid argument expecting variable, on or before 'WS-MES'
prog.cbl:    17: error: variable expected, on or before ')'
prog.cbl:    19: error: Invalid argument expecting variable, on or before 'WS-ANO-INTEIRO'
prog.cbl:    21: error: Invalid argument expecting variable, on or before 'WS-DATA-EXTENSO'
prog.cbl:    22: error: undefined variable WS-ANO-INTEIRO, on or before 'END-STRING'
prog.cbl:    22: error: undefined variable WS-DATA-EXTENSO, on or before 'END-STRING'
prog.cbl:    23: error: Invalid argument expecting variable, on or before 'WS-DATA-EXTENSO'
prog.cbl:    24: error: variable WS-DATA-EXTENSO not defined,0, on or before 'GOBACK'
prog.cbl:    24: error: undefined variable WS-DATA-EXTENSO, on or before 'GOBACK'

Standard output is empty