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

[Sergey Kashyrin]

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