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: u2-users@listserver.u2ug.org 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 u2-users@listserver.u2ug.org To "'u2-users@listserver.u2ug.org'" <u2-users@listserver.u2ug.org> 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 u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/