[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] Re: a program that doesn't compile
|
From: |
Keisuke Nishida |
|
Subject: |
[open-cobol-list] Re: a program that doesn't compile |
|
Date: |
Wed Feb 11 15:29:33 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, 10 Feb 2004 11:04:25 -0500 (EST),
David Korn wrote:
>
> The followng program compiles with the IBM MVS Cobol compiler but gives
> prog5.cob:17: parse error, unexpected '('
> with open cobol.
>
> ==========================prog5.cob========================
> IDENTIFICATION DIVISION.
> PROGRAM-ID. PROG5.
> ENVIRONMENT DIVISION.
> INPUT-OUTPUT SECTION.
> DATA DIVISION.
> WORKING-STORAGE SECTION.
> 01 Q385-HIER-STRUC-ARRAY-REQREC.
> 03 Q385-TBL-REQST-CD PIC X(8) VALUE SPACES.
> 03 Q385-HIER-STRUC-ARRAY-ROW.
> 06 Q385-HIER-PRORD-KEY PIC X(80) VALUE SPACES.
>
> 06 Q385-RELTV-HIER-LVL-NBR PIC S9(2) COMP-3
> VALUE ZEROES.
> 06 Q385-PRNT-HP-PRORD-KEY PIC X(80) VALUE SPACES.
> PROCEDURE DIVISION.
> MOVE LOW-VALUES TO
> Q385-PRNT-HP-PRORD-KEY((Q385-RELTV-HIER-LVL-NBR * 2) - 1:2)
> ==========================end prog5.cob========================
Now fixed in CVS. You can use arithmetic expressions for subscripts
and reference modifications.
Keisuke