oorexx 3.0.0 on W2K (5.00.2195 serv pack 4)
Interpreter hangs at line 1360 of accompanying code
Source line is:
if inptxt~Right(1)=' ' & inptxt~strip<>''
value of inptxt='50331690'
if I take the line out of context it runs OK.
it runs OK on Object REXX 2.1.3
================================
here is sysdump (taken at line 1359):
Name=INPBOX, Value='an EDITCONTROL'
Name=SUPER, Value='The USERDIALOG class'
Name=INPTXT, Value='50331690'
Name=SELF, Value='an ORDERBROWSER'
=================================
here is method code:
/---------------------------------------------------------------------------/
::method InputFromUser / The user has
typed some text /
/---------------------------------------------------------------------------/
/ This routine examines what has been entered, works
out if it is a code, /
/ a quantity or a barcode & then calls the apropriate
method /
/---------------------------------------------------------------------------/
say 'Method: InputFromUser'
trace i
arg
inptxt . /
{2.01g}/
inpbox = self~GetEditControl("INPUTEDITBOX")
if
inptxt='' /
{2.01g}/
then inptxt =
inpbox~title /{2.01g}/
call sysdumpvariables 'c:\sndump.txt'
if inptxt~Right(1)=' ' & inptxt~strip<>''
then do
inptxt=inptxt~strip
if inptxt~verify('0123456789')=0 / this is numeric (&
maybe bigger than numeric digits) /
then if inptxt~length < 5
then self~InputQty(inptxt,)
else self~InputBarCode(inptxt)
else self~InputCode
self~FocusItem(100)
end / DO /
===============================
Here is trace i output:
Method: InputFromUser
1353 - arg inptxt .
/{2.01g}/
>>> "50331690"
>.> ""
1355 - inpbox = self~GetEditControl
("INPUTEDITBOX")
>V> "an ORDERBROWSER"
>L> "INPUTEDITBOX"
>>> "INPUTEDITBOX"
>M> "an EDITCONTROL"
>>> "an EDITCONTROL"
1357 - if inptxt=''
/{2.01g}/
>V> "50331690"
>L> ""
>O> "0"
>>> "0"
1359 - call sysdumpvariables 'c:\sndump.txt'
>L> "c:\sndump.txt"
>>> "c:\sndump.txt"
>>> "0"
1360 - if inptxt~Right(1)=' ' & inptxt~strip<>''
>V> "50331690"
>L> "1"
>>> "1"
>M> "0"
>L> " "
>O> "0"
>V> "50331690"
>M> "50331690"
>L> ""
>O> "1"
>O> "0"
>>> "0"
=====================================
For what it is worth, I attach my source file
It hangs every time at the same place, even before
inserting the sysdump
Good luck tracking it down.
Jon Wolfers
Anonymous
Logged In: YES
user_id=86185
Jon,
The sample program is useful to track the problem down,
however the sample program requires the "obrowser" class.
Could you please upload this file as well, or email it to
mark@rexx.org
Logged In: YES
user_id=667060
Happy to say that this problem is fixed by the more recent
build (3.0.0 March 17th 2005). I don't know what the problem
was, but it has gone away.
Jon
Logged In: YES
user_id=1125291
This is a duplicate of 1143580.