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/