Am 22. Juli 2021 11:15:41 MESZ schrieb mattila_timo@kolumbus.fi:
Hi,
I got error
libcob: error: codegen error
libcob: error: Please report this!
when playing / testing GnuCobol 3.1.2 with Micro Focus screen IO example
program on Linux Mint.
Source:
IDENTIFICATION DIVISION.
PROGRAM-ID. FNKEYS.
* This is the screen demo modified to demonstrate function keys
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CRT STATUS IS CRT-STAT
CURSOR IS CURSOR-POSITION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CURSOR-POSITION.
02 CURSOR-LINE PIC 99.
02 CURSOR-COL PIC 99.
01 CRT-STAT PIC 9999.
* Areas to contain data from forms on the screen.
01 GO-ON.
02 GO-MESSAGE PIC X(55) VALUE
"Press a function key? (Press Fkey or press n to finish)".
02 FILLER PIC X.
01 GO-ON-RED.
02 FILLER PIC X(55).
02 GO-ON-REPLY PIC X.
SCREEN SECTION.
01 FKEY-FORM.
03 BLANK SCREEN.
03 LINE 1 COLUMN 35 VALUE "Function Key".
PROCEDURE DIVISION.
INITIALISE-FORM.
MOVE SPACES TO CURSOR-POSITION.
DISPLAY FKEY-FORM.
NEXT-FKEY.
MOVE SPACES TO GO-ON-REPLY.
DISPLAY GO-ON AT 2401.
ACCEPT GO-ON-RED AT 2401
ON EXCEPTION PERFORM CRT-EXCEPTION
END-ACCEPT.
IF GO-ON-REPLY = "y" OR "Y" GO TO INITIALISE-FORM.
IF GO-ON-REPLY = "n" OR "N" STOP RUN.
GO TO NEXT-FKEY.
CRT-EXCEPTION.
DISPLAY CRT-STAT AT 0170.
MOVE SPACE TO GO-ON-REPLY.
Details in attached to text document. No matter if parameter
"standard-define" has value zero or 1 in file config file "default.conf"
BR
Timo Mattila