RE: [open-cobol-list] OC issues (more)

[Bill Klein]

This is an ANSI/ISO '85 Standard conformance issue.

Neither a paragraph nor an identifier needs to be unique (or capable of
being made unique) UNLESS they are referenced within the program.  (This was
a substantive change from the '74 Standard). 

> -----Original Message-----
> From: address@hidden 
> [mailto:address@hidden On 
> Behalf Of Sergey Kashyrin
> Sent: Tuesday, January 17, 2006 12:19 PM
> To: address@hidden
> Subject: [open-cobol-list] OC issues (more)
> 
> Hi again.
> All of that is about compatibility with MAJOR compilers (390, 
> AS/400, MF, FJ) in a situations when program is incorrect.
> 
>        IDENTIFICATION DIVISION.
>        PROGRAM-ID. ztest INITIAL.
>        ENVIRONMENT DIVISION.
>        DATA DIVISION.
>        WORKING-STORAGE SECTION.
>        PROCEDURE DIVISION.
>            PERFORM 01-SUB.
>            PERFORM 02-SUB.
>            GOBACK.
>        01-SUB.
>            DISPLAY "TEST1 OK".
>        01-EXIT.
>            EXIT.
>        02-SUB.
>            DISPLAY "TEST2 OK".
>        01-EXIT.
>            EXIT.
> 
> OC gives an ERROR and not producing the code:
> ztest2.cbl: In paragraph '02-SUB':
> ztest2.cbl:16: Error: redefinition of '01-EXIT'
> ztest2.cbl:12: Error: '01-EXIT' previously defined here
> 
> All other Cobols are accepting
> 
> 
> ----- Previous issue ----- 
> 
>        IDENTIFICATION DIVISION.
>        PROGRAM-ID. ztest INITIAL.
>        ENVIRONMENT DIVISION.
>        DATA DIVISION.
>        WORKING-STORAGE SECTION.
>        01  A.
>            05  FLD1  PIC X.
>            02  FLD2  PIC X.
>        PROCEDURE DIVISION.
>            DISPLAY "OK".
>            GOBACK.
> 
> OC gives an ERROR and not producing the code:
> ztest1.cbl:8: Error: no previous data item of level 02
> 
> All other Cobols are accepting that
> 
> Regards,
> Sergey
> 
> 
> 
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep 
> through log files
> for problems?  Stop!  Download the new AJAX search engine that makes
> searching your log files as easy as surfing the  web.  
> DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&;
> dat=121642
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list
>