CLOSE all
use aliq
INDEX ON  no TO no
set order to "no"
for i = 1 to 20 && assume 20 values for flag
  <B>select aliq</B> && what you  mean
  seek i  &&Table has no index order set
  copy next 5 to temp while no = i
use aliq1
  append from temp
next