|
From: | Edward Hart |
Subject: | Re: [open-cobol-list] ACCEPT or DISPLAY AT COL without LINE |
Date: | Sat, 21 May 2016 10:14:31 +0100 |
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
[Prev in Thread] | Current Thread | [Next in Thread] |