Есть начальная таблица 1 с полями(пусть будут a,b,c,d...). Мне нужно создать новую таблицу с полями a и b и скопировать туда записи относящиеся к этим полям из таблицы 1. Вот пытался сделать, зацикливание происходит. Нужно на xBase.

Procedure p
select d
creat table bibl4(god_izdan I(4), fakultet C(7))
use bib in a
go top in d
append blank

set safety off
zap
dimension temp_record[8]
SELECT a
scan
SELECT a
SCATTER TO temp

locate for god_izdan=temp[5] .and.;
fakultet=temp[9]
if found()
SELECT d

append from array temp
endif
endscan
BROWSE

можно закрывать