* В следующем примере выполняется отображение на экране структуры
* таблицы orders, расширенное копирование этой структуры в таблицу temp,
* просмотр таблицы temp, создание таблицы backup на основе
* содержимого temp и отображение структуры backup.

CLOSE DATABASES

CLEAR

SET PATH TO (HOME( ) + 'samples\data\') && Sets path to database

USE orders

DISPLAY STRUCTURE

WAIT WINDOW 'Structure of the orders table' NOWAIT

COPY STRUCTURE EXTENDED TO temp

USE temp

WAIT WINDOW 'Temp table has 1 row per field in ORDERS' NOWAIT

BROWSE

CREATE backup FROM temp

USE backup

DISPLAY STRUCTURE

WAIT WINDOW 'Backup.dbf has the same structure as ORDERS' NOWAIT

USE

DELETE FILE temp.dbf

DELETE FILE backup.dbf