[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [open-cobol-list] ACCEPT or DISPLAY AT COL without LINE
From: |
David Newall |
Subject: |
Re: [open-cobol-list] ACCEPT or DISPLAY AT COL without LINE |
Date: |
Sat, 21 May 2016 13:24:26 +0930 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.7.2 |
Hi Edward,
Here's two examples:
$ cat test-display-at.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. "test-display-at".
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. GNUCOBOL.
OBJECT-COMPUTER. GNUCOBOL.
PROCEDURE DIVISION.
MAIN-START.
DISPLAY " Display at line 22,", AT LINE 22, POSITION 20.
DISPLAY " position 20", AT POSITION 40.
EXIT PROGRAM.
STOP RUN.
END PROGRAM "test-display-at".
$ cobc test-display-at.cbl
Unexpected tree tag 28
codegen.c:1304: Internal compiler error
Aborting compile of test-display-at.cbl at line 18
$ cat test-accept-at.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. "test-accept-at".
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. GNUCOBOL.
OBJECT-COMPUTER. GNUCOBOL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RETURN-KEY PIC X.
PROCEDURE DIVISION.
MAIN-START.
DISPLAY " Press Enter key to continue...",
AT LINE 22, POSITION 20.
ACCEPT RETURN-KEY AT POSITION 55.
EXIT PROGRAM.
STOP RUN.
END PROGRAM "test-accept-at".
$ cobc test-accept-at.cbl
Unexpected tree tag 28
codegen.c:1304: Internal compiler error
Aborting compile of test-accept-at.cbl at line 18
The compiler was compiled from source, using svn checkout
svn://svn.code.sf.net/p/open-cobol/code/trunk open-cobol-code (and I
just realised that is probably version 1.1, not 2.0), with plain
./configure. At the time it was revision 883.
David