>set collate to "general" >set talk off >set Safety off >Sys(3054,11) > >create dbf dbf_a ( fielda1 N(2), fielda2 C(10) ) >for ll = 1 to 1000 > append blank >endfor >replace all fielda1 with 99 >replace all fielda2 with "lol" >goto 300 >replace fielda2 with "find this!" >index on fielda1 tag fielda1 >index on fielda2 tag fielda2 >sele 0 >create dbf dbf_b ( fieldb1 N(2), fieldb2 C(10) ) >for ll = 1 to 1000 > append blank >endfor >replace all fieldb1 with 99 >replace all fieldb2 with "xlol" >goto 800 >replace fieldb2 with "find this!" >index on fieldb1 tag fieldb1 >index on fieldb2 tag fieldb2 >set talk on >select fieldb1, fieldb2 from dbf_a, dbf_b where fielda1 = fieldb1 and fielda2 = fieldb2>Christof