[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [open-cobol-list] runtime error with open cobol
|
From: |
Keisuke Nishida |
|
Subject: |
Re: [open-cobol-list] runtime error with open cobol |
|
Date: |
Fri Feb 20 21:10:10 2004 |
|
User-agent: |
Wanderlust/2.10.0 (Venus) SEMI/1.14.3 (Ushinoya) FLIM/1.14.3 (Unebigoryōmae) APEL/10.3 Emacs/21.2 (i386-redhat-linux-gnu) MULE/5.0 (SAKAKI) |
At Tue, 17 Feb 2004 18:43:29 -0500 (EST),
David Korn wrote:
>
> I have enclosed a program below that produces different results
> with openCobol and IBM MVS Cobol. I was told that the IBM
> version is correct.
>
> The output with IBM is
> ================cut here=======================
> *** TEST RUN ***
> AW-SYSUT1-WA1 = 01 QD2E-FILE-ACS-REQST-REC.
>
> AW-SYSUT1-WA2 = 01 QD2E-FILE-ACS-REQST-REC.
>
> 1 AW-SYSUT1-WA1-A = 01 QD2E-FILE-ACS-REQST-REC.
> 1 AW-SYSUT1-WA1-B =
> 2 AW-SYSUT1-WA1-A = 01
> 2 AW-SYSUT1-WA1-B = QD2E-
> ================cut here=======================
>
> and with OpenCobol
>
> ================cut here=======================
> AW-SYSUT1-WA1 = 01 QD2E-FILE-ACS-REQST-REC.
>
> AW-SYSUT1-WA2 = 01 QD2E-FILE-ACS-REQST-REC.
>
>
> 1 AW-SYSUT1-WA1-A = 01 QD2E-FILE-ACS-REQST-REC.
>
> 1 AW-SYSUT1-WA1-B =
> 2 AW-SYSUT1-WA1-A = 01
> 2 AW-SYSUT1-WA1-B =
> ================cut here=======================
Fixed in CVS (with -std=mvs option). Thanks.
Keisuke