libcob codegen error

[mattila_timo]

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

libcob_codegen_error_20210722_mf_cobol_screen_io_example.txt
Description: Text Data

fnkeys.cob
Description: Text document