Good idea... I banged this in...
open 'IPL' to F.Item then
crt ' opened ok ' ; sleep
end else
crt ' not opening ' ; sleep
end
It opens ok.
--Bill
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Deb Bruns
Sent: Thursday, July 27, 2006 1:31 PM
To: [email protected]
Subject: Re: [U2] [UV] Read Error, Improper Data Type
Check to make sure your file opened and is not null.
Thanks & Have a Great Day!!
Sincerely,
Deb Bruns
Systems Analyst
Sick, Inc.
6900 West 110th Street
Minneapolis, MN 55438 USA
Phone: 952.941.6780
Fax: 952.941.9287
Direct: 952.829.4842
http://www.sickusa.com
This message and attachments are solely for the intended recipient and may
contain confidential of privileged information. If you are not the
intended recipient, any disclosure, copying, use or distribution is
prohibited. If you have received this communication in error, please
notify us by reply email and immediately and permanently delete this
message and any attachments. Thank you.
"Brutzman, Bill" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
07/27/2006 11:12 AM
Please respond to
[email protected]
To
"'[email protected]'" <[email protected]>
cc
Subject
[U2] [UV] Read Error, Improper Data Type
I am having a problem with a straightforward read statement that is
driving
me crazy...
Suggestions would be appreciated.
--Bill
__ __
\_ SLANG _/ Common Names for HK.Parts
_Slang.Name___________
6 record(s) selected to SELECT list #0.
101312 0
101485 0
101859 0
103468 0
103469 0
103543 0
101312?101485?101859?103468?103469?103543
***101312***
Program "SLANG.R0": Line 77, Improper data type.
Variable previously undefined. Zero length string used.
>
*===========================================================================
=======================
*R0 Bill Brutzman Jul.2006
prompt ''
open 'IM' to F.Item else null
*-------------------------------------------------------------------------
crt @(-1)
crt
crt
crt
crt
crt
crt
crt
crt ' _________ '
crt ' / \ '
crt ' \ SLANG / Common Names for HK Parts '
crt ' \_______/ ' : @(-5)
crt
crt ' ~ 10 sec ' : @(-6)
crt
crt ' ' :
*---------------------------------------------------------------------------
---
clear
equate true to 1, false to 0
equate AM to char(254)
done = false
print
Part.Array = ''
gosub Print.Header
*-------------------------------------------------------------------------
clearselect ALL
execute " SELECT IM WITH SLANG.NAME # '' "
loop
readnext Part else done = true
until done do
Print.Line = ' '
Print.Line := Part 'L#6' : ' '
Print.Line := Slang.Name
crt Print.Line
locate Part in Part.Array<1> by 'AL' setting posn else null
ins Part before Part.Array<posn>
Next.Step:
repeat
crt
crt Part.Array
crt
All.Parts = dcount(Part.Array, AM)
for Part.Count = 1 to All.Parts
This.Part = Part.Array<Part.Count>
crt '***' : This.Part : '***'
read R.Item from F.Item, This.Part else R.Item = ''
Slang.Name = R.Item<11>
if Slang.Name = '' then go Next.Step
next This.Part
*---------------------------------------------------------------------------
---
Exit.Prompt:
crt @(0,22) : @(-4) : ' [X] ' :
input Ans, 1
Ans = upcase(Ans)
begin case
case Ans = 'X' ; go The.End
case 1 ; go Exit.Prompt
end case
go The.End:
*-------------------------------------------------------------------------
Print.Header:
crt @(-1)
crt ' __ __ '
crt ' \_ SLANG _/ Common Names for HK.Parts '
crt
Print.Line = ' _HK.PN____'
Print.Line = '_Slang.Name___________'
print Print.Line
print
return
*-------------------------------------------------------------------------
The.End:
crt @(-1)
END
-------
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/
