Is this UniDeBugger? -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of john reid Sent: Thursday, July 27, 2006 1:45 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] [UV] Read Error, Improper Data Type
btw, why would you want to go back to the repeat when you get a null? You've used up the SELECT list, right? Also, the NEXT might be misleading to the next lucky person. NEXT Part.Count might be easier to read. On 7/27/06, john reid <[EMAIL PROTECTED]> wrote: > Gotcha > > TESTL: 28: clear > :: F.Item/ > DBFILE: A IM Mod=1 Sep=4 Type=18 > :: s > TESTL: 33: done = false > :: F.Item/ > INTEGER: 0 > :: > :: F.Item/ > DBFILE: A IM Mod=1 Sep=4 Type=18 > :: s > TESTL: 33: done = false > :: F.Item/ > INTEGER: 0 > :: > > > On 7/27/06, Brutzman, Bill <[EMAIL PROTECTED]> wrote: > > 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/ > > > > > -- > john > -- john ------- 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/
