Read and respond to this message at:
https://sourceforge.net/forum/message.php?msg_id=3527890
By: briantan
Have following form F_REC.per
database formonly
screen
{
Printer [f000 ]
[d001 ]
[d002 ]
Delete [p]
}
end
attributes
f000 = formonly.REC_ID type char, upshift;
d001 = formonly.REC_DESC type char, noentry;
d002 = formonly.REC_STR type char, noentry;
p = formonly.REC_FLAG type char;
end
instructions
delimiters " "
end
and the following skeleton program.
main
define P_REC record
REC_ID char(8),
REC_DESC char(30),
REC_STR char(80),
REC_FLAG char(1)
end record
open window W_REC at 1,1 with form "F_REC"
let P_REC.REC_ID = "SAMSUNG"
let P_REC.REC_DESC = "Samsung Landscape"
let P_REC.REC_STR = "a2ps --borders=no -B -r --columns=1 -L 66 -P samsung"
let P_REC.REC_FLAG = "N"
clear form
display by name P_REC.REC_DESC, P_REC.REC_STR
input by name P_REC.REC_ID, P_REC.REC_FLAG
without defaults
attribute(red, reverse)
after field REC_ID
display by name P_REC.REC_DESC, P_REC.REC_STR attribute(cyan)
end input
close window W_REC
display "REC_ID=", P_REC.REC_ID clipped, "= ",
"REC_DESC=", P_REC.REC_DESC clipped, "= ",
"REC_STR=", P_REC.REC_STR clipped, "= ",
"REC_FLAG=", P_REC.REC_FLAG, "= "
end main
First display shows the value of REC_DESC and REC_STR ok, but the second display
in "after field" corrupts the REC_FLAG field. This program is simplified.
In most of my 4gl programs, I use "after input" to validate input field from
tables and display column values. But end result is the same (corruption).
Anyone encounter such problems and is there any bypass? (put REC_FLAG in a seperate
input is not a viable solution for me)
Platform: Aubit4gl binary 0.50.11, Fedora Core 4.
Thanks.
Brian
______________________________________________________________________
You are receiving this email because you elected to monitor this forum.
To stop monitoring this forum, login to SourceForge.net and visit:
https://sourceforge.net/forum/unmonitor.php?forum_id=101769
|