Dennis: I would handle it with something like the following...
-Bill *---------------------------------------------------- equate true to 1, false to 0 open 'STOCK' to F.Stock else null open 'REPAIRS' to F.Repairs else null clearselect ALL execute "SELECT REPAIRS" done = false loop readnext Invoice.ID else done = true until done do read R.Repairs from F.Repairs, Repair.ID else R.Repairs = '' Bin.Location.ID = R.Repairs<7> read R.Stock from F.Stock, Bin.Location.ID else R.Stock = '' Part.Nbr = R.Stock<12> read R.Item from F.Item.Master, Part.Nbr else R.Item = '' Part.Desc = R.Item<17> Print.Str = Repair.ID 'L#11' Print.Str := Part.Nbr 'L#6' : ' ' Print.Str := Part.Desc 'L#22' : ' ' Print.Str := Bin.Location 'L#6' print Print.Str R.This = Repair.ID : VM R.This := Part.Nbr locate R.This in Repair.Array<1> by 'AL' setting pos else null ins R.This before Repair.Array<pos> repeat -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dennis Bartlett Sent: Friday, March 14, 2008 6:04 AM To: u2-users@listserver.u2ug.org Subject: [U2] Indexes My dumb question for the day (just cant remember how to... and the manual's example is too simplistic...) How do I programmatically get an index value out, eg I have a STOCK file, and a REPAIRS file. Whoever designed this needs their head read, but the repairs file only has the stock code as a reference in the record. I have indexed the repair file on stock code, and need to create a report on the stock file of how many items are under repair. 1. UniverseBASIC code? 2. is this possible from an Itype? ------- 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/