Discussion:
Opening a window or closing a window will refresh all the remaining open windows on the screen
(too old to reply)
i***@gmail.com
2017-08-31 14:57:56 UTC
Permalink
Raw Message
Hello All,

An application have several windows 4GL.
Opening a window 4GL or closing a window 4GL will refresh all the remaining open windows on the screen.
We are currently running our software on IBM INFORMIX-4GL Version 7.51.UC2 and this is currently our only problem.

This effect does not exist when the program is compiled on INFORMIX-4GL Version 7.30.UC7
The same code compiled and run on IBM INFORMIX-4GL version 7.51.UC2 has the problem described above.

MAIN
DEFINE cc CHAR(1)

LET cc="X"

CURRENT WINDOW IS SCREEN
OPEN WINDOW cust_w AT 3,5 WITH 19 ROWS, 72 COLUMNS
ATTRIBUTE (BORDER, REVERSE)

DISPLAY "[A]" AT 1,2
DISPLAY " press <q> to Exit " AT 3,2
DISPLAY " press <Enter> to reopen a window [B] " AT 12,2

WHILE TRUE

OPEN WINDOW firma_w AT 5,32 WITH 5 ROWS, 29 COLUMNS
ATTRIBUTE (BORDER, REVERSE, PROMPT LINE LAST)
DISPLAY "[B]" AT 1,2
DISPLAY " xxxxxx xxxxxxxxx " AT 2,2
DISPLAY " xx-xxx xxxxxxx " AT 3,2
DISPLAY " xxxxxxxxxxxxxxxxxx " AT 4,2

OPEN WINDOW cc_w AT 9,33 WITH 1 ROWS, 3 COLUMNS
PROMPT "><" FOR CHAR cc
CLOSE WINDOW cc_w

CLOSE WINDOW firma_w

IF cc = "Q" OR cc = "q" THEN
EXIT WHILE
END IF

END WHILE
CLOSE WINDOW cust_w
END MAIN

If someone met this problem and solved it please information how to solve it, thank you

Andrzej
Spokey Wheeler
2017-08-31 15:02:30 UTC
Permalink
Raw Message
Hi,

What do you mean by “refresh”?
Post by i***@gmail.com
Hello All,
An application have several windows 4GL.
Opening a window 4GL or closing a window 4GL will refresh all the remaining open windows on the screen.
We are currently running our software on IBM INFORMIX-4GL Version 7.51.UC2 and this is currently our only problem.
This effect does not exist when the program is compiled on INFORMIX-4GL Version 7.30.UC7
The same code compiled and run on IBM INFORMIX-4GL version 7.51.UC2 has the problem described above.
MAIN
DEFINE cc CHAR(1)
LET cc="X"
CURRENT WINDOW IS SCREEN
OPEN WINDOW cust_w AT 3,5 WITH 19 ROWS, 72 COLUMNS
ATTRIBUTE (BORDER, REVERSE)
DISPLAY "[A]" AT 1,2
DISPLAY " press <q> to Exit " AT 3,2
DISPLAY " press <Enter> to reopen a window [B] " AT 12,2
WHILE TRUE
OPEN WINDOW firma_w AT 5,32 WITH 5 ROWS, 29 COLUMNS
ATTRIBUTE (BORDER, REVERSE, PROMPT LINE LAST)
DISPLAY "[B]" AT 1,2
DISPLAY " xxxxxx xxxxxxxxx " AT 2,2
DISPLAY " xx-xxx xxxxxxx " AT 3,2
DISPLAY " xxxxxxxxxxxxxxxxxx " AT 4,2
OPEN WINDOW cc_w AT 9,33 WITH 1 ROWS, 3 COLUMNS
PROMPT "><" FOR CHAR cc
CLOSE WINDOW cc_w
CLOSE WINDOW firma_w
IF cc = "Q" OR cc = "q" THEN
EXIT WHILE
END IF
END WHILE
CLOSE WINDOW cust_w
END MAIN
If someone met this problem and solved it please information how to solve it, thank you
Andrzej
_______________________________________________
Informix-list mailing list
http://members.iiug.org/mailman/listinfo/informix-list
i***@gmail.com
2017-08-31 15:24:40 UTC
Permalink
Raw Message
Here refreshing as re-displaying the remaining open windows
In the attached program there will be three refreshes of the [A] window caused
CLOSE WINDOW cc_w
CLOSE WINDOW firma_w
OPEN WINDOW firma_w
Such a nasty terminal blink
Spokey Wheeler
2017-08-31 15:26:25 UTC
Permalink
Raw Message
Is there perhaps a difference in the termcap or terminfo settings between the two versions?
Post by i***@gmail.com
Here refreshing as re-displaying the remaining open windows
In the attached program there will be three refreshes of the [A] window caused
CLOSE WINDOW cc_w
CLOSE WINDOW firma_w
OPEN WINDOW firma_w
Such a nasty terminal blink
_______________________________________________
Informix-list mailing list
http://members.iiug.org/mailman/listinfo/informix-list
i***@gmail.com
2017-08-31 16:05:12 UTC
Permalink
Raw Message
I checked, I already thought about it, the environment on the new platform is the same, but I will again, thank you
Spokey Wheeler
2017-08-31 16:16:07 UTC
Permalink
Raw Message
I’m pretty sure they changed the termcap files around 7.50.
Post by i***@gmail.com
I checked, I already thought about it, the environment on the new platform is the same, but I will again, thank you
_______________________________________________
Informix-list mailing list
http://members.iiug.org/mailman/listinfo/informix-list
Pawel
2018-05-29 09:16:07 UTC
Permalink
Raw Message
We noticed the same problem with version 7.51.FC2. We have checked that this problem does not occur in older versions.
Did you find a solution for this problem in version 7.51.xC2?

Regards,
Pawel.
Post by Spokey Wheeler
I’m pretty sure they changed the termcap files around 7.50.
Post by i***@gmail.com
I checked, I already thought about it, the environment on the new platform is the same, but I will again, thank you
_______________________________________________
Informix-list mailing list
http://members.iiug.org/mailman/listinfo/informix-list
i***@gmail.com
2017-08-31 16:09:23 UTC
Permalink
Raw Message
When comparing main.ec files, I can not explain the behavior of this program

$ c4gl -V
INFORMIX-4GL Version 7.30.UC7
c4gl -a -z -keep -anyerr *.4gl -o a.out

#include <sqlfm.h>
extern _EFwindow *_Wscreen;
_EFwindow *_Wcust_w;
:::::::
_efiwopen(&_Woiscrfirma, "firma", 5, 32, 0, 0, 0, -1, -1, 0x4000, 0x0000, -1,0);

$ c4gl -V
IBM INFORMIX-4GL Version 7.51.UC2
c4gl -a -z -keep -anyerr *.4gl -o a.out

#include <sqlfm.h>
extern _EFwindow *_Wscreen;
_EFwindow *_Wcust_w;
:::::::
ibm_efm_openWindow(&_Woiscrfirma, "firma", 5, 32, 0, 0, 0, -1, -1, 0x4000, 0x0000, -1,0);



Can the problem be the installation of INFORMIX

On our previous platform where the program does not refresh the window [A]
INFORMIX-4GL Version 7.30.UC7
$ ldd a.out
a.out needs:
/usr/lib/libc.a(shr.o)
/usr/lib/libbsd.a(shr.o)
/usr/lib/libtli.a(shr.o)
/usr/informix730/lib/tools/lib4gsh730.a(lib4gsh730.so.so)
/unix
/usr/lib/libcrypt.a(shr.o)
/usr/lib/libc.a(pse.o)
/usr/lib/libdl.a(shr.o)
/usr/lib/libcurses.a(shr42.o)

On the current platform where the problem described
IBM INFORMIX-4GL Version 7.51.UC2
a.out needs:
/u1/promak/INFORMIX4GL/lib/esql/libifsql.so
/u1/promak/INFORMIX4GL/lib/libifasf.so
/u1/promak/INFORMIX4GL/lib/esql/libifgen.so
/u1/promak/INFORMIX4GL/lib/esql/libifos.so
/u1/promak/INFORMIX4GL/lib/esql/libifgls.so
/usr/lib/libc_r.a(shr.o)
/usr/lib/libtli_r.a(shr.o)
/u1/promak/INFORMIX4GL/lib/esql/libifglx.so
/u1/promak/INFORMIX4GL/lib/lib4gsh.so
/usr/lib/libbsd.a(shr.o)
/usr/lib/librtl.a(shr.o)
/usr/lib/libc.a(shr.o)
/unix
/usr/lib/libcrypt.a(shr.o)
/usr/lib/libc.a(pse.o)
/usr/lib/libcurses.a(shr42.o)
Loading...