Re: Strange compiling behaviour in r4gl.
In <47b1ng$eat@cssun.mathcs.emory.edu> johnl@informix.com (Jonathan Leffler) writes: ' It is not desirable behaviour -- so it is a bug of some sort. ' However, the code I tested shows the correct diagnostic behaviour. ' The i4gl menu environment worked quite happily too. ' MAIN ' DEFINE v CHAR(20) ' DISPLAY v BY NAME ' |___________________^ ' | ' | A grammatical error has been found on line 5, character 21. ' | The construct is not understandable in its context. ' | See error number -4373. ' END MAIN ' This is on a Sparc 10 running Solaris 2.4 with 4.12.UE1. ' It is almost certainly a platform specific bug. ' Or it requires more context to trigger the problem. ' Yours, ' Jonathan Leffler (johnl@informix.com) #include <disclaimer.h> Finally we got the error again (I was stupid enough to throw the first code away). Here's a small prog that generates the undesireable behaviour on our AIX3.2.5 TIA Kristjan Gaukur Kristjansson gaukur@rhi.hi.is --Begins code: database reikn main define ktala_gr char(10) define p_greidandi record like re_greidendur.* open window w_re_not_sto at 3, 1 with form "re_not_sto" input ktala_gr from kennitala_gr attribute(reverse) after input if ktala_gr = "0000005070" then open window w_gre_sto at 8, 10 with form "re_gre_sto" attribute (border) #Here is the line that generates the bug: input p_greidandi.nafn thru p_greidandi.poststod # input by name p_greidandi.nafn thru p_greidandi.poststod #If it's changed to "input by name...." then everythings OK. close window w_gre_sto #If the "else" is taken away the compiler makes it through... else end if end input close window w_re_not_sto end main database reikn screen size 24 by 80 { - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Kennitala notanda [f007 ] Nafn notanda [f008 ] Kennitala greidanda [f000 ] Vidfangsefnisnumer [f001 ] Notandanafn [f002 ] Radnumer notanda [f003 ] flokkur [a0] verkefni [f006 ] - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } end tables re_notendur attributes f000 = re_notendur.kennitala_gr,required; f001 = re_notendur.vidfangsnr; f002 = re_notendur.notandi,required; f003 = re_notendur.radnumer_not; a0 = re_notendur.flokkur,required; f006 = re_notendur.verkefni,required; f007 = re_notendur.kennitala_not,required; f008 = re_notendur.nafn_not; end