[open-cobol-list] a program that doesn't compile

[David Korn]

cc: address@hidden 
Subject: a program that doesn't compile
--------

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========================

David Korn
address@hidden