SET ORDER TO so_number IN so_detail IF SEEK(so_header.so_number,"SO_DETAIL") SELECT so_detail SCAN REST WHILE so_detail.so_number = so_header.so_number <> ENDSCAN ENDIF