Re: libcob codegen error

[Simon Sobisch]

Thank you for the update, it should also work if the search order would be changed, it seems that /usr/lib/x86_64-linux-gnu takes precedence of /usr/local/lib.

Side note: RPATH possibly would provide solving this issue, too (hard-wired relative path via $ORIGIN); I'm open for patches...

Am 26.07.2021 um 10:49 schrieb Timo Mattila:

Hi,

This is my fault. I had library mismatch. I had old version installed from Linux Mint / debian repositorys. I  removed old version with apt before I install new version from sources but old libraries were left. After old libraries removed manually test program worked.

root@fiscs-0:~# ls -l /usr/local/lib/libcob*
-rw-r--r-- 1 root root 808708 jul 18 20:20 /usr/local/lib/libcob.a
-rwxr-xr-x 1 root root    944 jul 18 20:20 /usr/local/lib/libcob.la
lrwxrwxrwx 1 root root     15 jul 18 20:20 /usr/local/lib/libcob.so -> libcob.so.4.1.0
lrwxrwxrwx 1 root root     15 jul 18 20:20 /usr/local/lib/libcob.so.4 -> libcob.so.4.1.0
-rwxr-xr-x 1 root root 482232 jul 18 20:20 /usr/local/lib/libcob.so.4.1.0

Old libraries:

root@fiscs-0:~# ls -l /usr/lib/x86_64-linux-gnu/libcob*
-rw-r--r-- 1 root root 610914 jul 17  2018 /usr/lib/x86_64-linux-gnu/libcob.a
lrwxrwxrwx 1 root root     15 jul 17  2018 /usr/lib/x86_64-linux-gnu/libcob.so -> libcob.so.4.0.0
lrwxrwxrwx 1 root root     15 jul 17  2018 /usr/lib/x86_64-linux-gnu/libcob.so.4 -> libcob.so.4.0.0
-rw-r--r-- 1 root root 336896 jul 17  2018 /usr/lib/x86_64-linux-gnu/libcob.so.4.0.0

Br

Timo Mattila

Den 2021-07-23 kl. 22:08, skrev Simon Sobisch:

Thank you for the good report. I'll look at that soon and if I can reproduce it, should be able to provide a fix on Monday.

Have a nice weekend,
Simon

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

--
Diese Nachricht wurde von meinem Android-Mobiltelefon mit K-9 Mail gesendet.