I'm on Universe 10.1.11 and I execute the following code:
INPUT ANS
SCRATCH = 'HELLO'
IF (ANS#"" AND ANS # "B") THEN
IF ANS MATCHES '0N' THEN
IF ANS>0 THEN
IF SCRATCH<ANS>#"" THEN
PRINT SCRATCH<ANS>
END
END
END
END
STOP
And if I enter 1.x or 1X or 2B for ANS the program runs fine without
error. When I debug through it I see that all those inputs return a
false from ANS MATCHES '0N'... must be a wrong line number or something,
I'd get a debug in there and find out for sure!
Pete
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brenda Price
Sent: Friday, June 02, 2006 2:07 PM
To: [email protected]
Subject: RE: [U2] [UV] How can this be non-numeric?
We get this error when users enter "1.x" or "1X" or "2B", etc on code
like that.
Brenda
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Kevin King
Sent: Friday, June 02, 2006 11:48 AM
To: [email protected]
Subject: RE: [U2] [UV] How can this be non-numeric?
That would be my guess, that the line number isn't right.
-Kevin
[EMAIL PROTECTED]
http://www.PrecisOnline.com
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stevenson,
Charles
Sent: Friday, June 02, 2006 10:31 AM
To: [email protected]
Subject: [U2] [UV] How can this be non-numeric?
Program "TIP.LIST": Line 242, Nonnumeric data when numeric required.
Zero used.
It's got to be ANS that is "nonnumeric", but how?
Here's the code:
239: IF (ANS#"" AND ANS # "B") THEN
240: IF ANS MATCHES '0N' THEN
241: IF ANS>0 THEN
242: IF SCRATCH<ANS>#"" THEN
Could be the line number is not right, object & source don't line up,
but here's VLIST of same:
00239: IF (ANS#"" AND ANS # "B") THEN
00239 00BD8 : 106 ne ANS "" => $R44
00239 00BE0 : 106 ne ANS "B" => $R46
00239 00BE8 : 008 and $R44 $R46 => $R48
00239 00BF0 : 2DE testfw $R48 00CB0:
00240: IF ANS MATCHES '0N' THEN
00240 00BF8 : 0E0 match ANS "0N" => $R49
00240 00C00 : 2DE testfw $R49 00CA0:
00241: IF ANS>0 THEN
00241 00C08 : 0A6 gt ANS 0 => $R50
00241 00C10 : 2DE testfw $R50 00C88:
00242: IF SCRATCH<ANS>#"" THEN
00242 00C18 : 060 dyn_extract SCRATCH ANS 0 0 => $R51
00242 00C24 : 106 ne $R51 "" => $R52
00242 00C2C : 2DE testfw $R52 00C70:
UV 10.0.16, HPUX
TIA,
Chuck Stevenson
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
