SELECT vitems cOldOrder = ORDER() SET ORDER TO TAG ordkey SEEK Order_List.cordno SCAN WHILE vitems.clordno = Order_List.cordno ENDSCAN