Re: Is this a bug w/ 4GL 4.10

On Thu, 29 Jul 1993, John Maddox wrote: } } The following program compiles but does not work as i expect... } Is it me? (or is this a bug?) } } } # bug.4gl } # --------------------------------- } globals } define x char(100) } end globals } } main } } let x = " " } } # below compiles but doesn't seem to do anything } # } # don't want to have to code: } # } # if x = " ... one hundred blanks" then } } if x clipped = "" then } display "x is blank" } end if } } end main } -- } -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= } John Maddox jmaddox@mistxt.oc.com 214-888-0476 } OpenConnect Systems I have had problems with this myself. One way around is to insert LET vlen = LENGTH(x) if vlen is 0 then the var is null. Regards, Peter +---------------------------+--------------------------------------------+ | Peter Estabrook | Internet: estabroo@sea07s.navsea.navy.mil | | User Technology Assoc. | Voice: (703) 486-7190 | | 2121 Crystal Drive #103 | Fax : (703) 486-7179 | | Arlington, VA 22202 USA | Host : Sequent S2000/200 ptx V1.4 | +---------------------------+--------------------------------------------+