i***@gmail.com
2017-08-31 14:57:56 UTC
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
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