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

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)