My code goes as follows:
SELECT 5&&MAIN TABLE
USE MAIN
SET ORDER TO 1 &&BOXBAR+FILEBAR+TAPEBAR
COPY STRU TO DTERR&& TABLE OF DUPLICATE RECORDS
SELECT 7
USE DTERR
***GET NAME OF MERGE TABLE AND COPY RECORDS TO MAIN TABLE
SELECT 6&&MERGE TABLE
USE MERGE
DO WHILE .NOT. EOF(6)&&MERGE TABLE
SELECT 6&&MERGE TABLE
STORE BOXBAR+FILEBAR+TAPEBAR TO LCTARGET
SELECT 5&&MAIN TABLE
SEEK LCTARGET
IF EOF(5)&&MAIN TABLE
SELECT 6&&MERGE TABLE
COPY RECORD RECNO() TO TEMP
SELECT 5&&MAIN TABLE
APPEND FROM TEMP
SELECT 6&&MERGE TABLE
SKIP
IF EOF(6)
USE
EXIT
ENDIF
LOOP
ELSE&© DUPES TO DTERR
SELECT 6&&MERGE TABLE
COPY RECORD RECNO() TO TEMP
SELECT 7&& DTERR.DBF
APPEND FROM TEMP
SELECT 6&&MERGE TABLE
SKIP
IF EOF(6)
USE
EXIT
ENDIF
LOOP
ENDIF
ENDDO
CLOSE DATA
Scott Starkey
"You are in a postion to demand............nothing!"