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

[Alain Lucari]

Hi,

Le Tue, 17 Jan 2006 13:18:50 -0500
"Sergey Kashyrin" <address@hidden> a écrit:

> 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
>
  are you SURE of that ?
I'm (helas !) a very old cobolist and for ME
- if you write "perform 01-sub" without "thru 01-exit" 
  the "01-EXIT" paragraph as no effect and you may safely suppress it
  (unless you sold yours cobols programs with a price per line ;-))
- it is an error to have two (or more) paragraph or two (or more)
  data-names with the SAME name.
it is true that MF or ACU said nothing about that but they do with ??
Only O-C detect the error and I'M VERY HAPPY OF THAT !
if you use vim you can safely edit this program ant type
"g/EXIT/d"
wq

What strange/funny cobol programmer has write something like that ?
try it with JAVA

regards,
-- 
Alain Lucari (Eurlix)