fork download

copy

WORKING-STORAGE SECTION.
01 GDA-DATA.
03 GDA-ANO PIC 9(004).
03 FILLER REDEFINES GDA-ANO.
05 GDA-MILHAR-CENTENA-ANO PIC 9(002).
05 GDA-DEZENA-UNIDADE-ANO PIC 9(002).
03 GDA-MES PIC 9(002).
03 GDA-DIA PIC 9(002).
 
01 GDA-DIVISAO PIC 9(004) VALUE ZEROS.
01 GDA-RESTO PIC 9(004) VALUE ZEROS.
...
 
PROCEDURE DIVISION.
 
IF GDA-DEZENA-UNIDADE-ANO NOT EQUAL ZEROS
DIVIDE GDA-ANO BY 4 GIVING GDA-DIVISAO REMAINDER GDA-RESTO
ELSE
DIVIDE GDA-ANO BY 400 GIVING GDA-DIVISAO REMAINDER GDA-RESTO
END-IF.
 
IF GDA-RESTO EQUAL ZEROS
DISPLAY 'O ANO É BISSESTO'
ELSE
DISPLAY 'O ANO NÃO É BISSESTO'
END-IF.

prog.cob:1: Warning: Invalid indicator 'G' at column 7
prog.cob:4: Warning: Invalid indicator 'U' at column 7
prog.cob:19: Warning: Invalid indicator '.' at column 7
prog.cob:23: Warning: Invalid indicator 'Y' at column 7
prog.cob:25: Warning: File not terminated by a newline
prog.cob:25: Warning: Invalid indicator '.' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID

Standard output is empty