SEEK( ) example

The following example uses SEEK( ) to prune a customer table by deleting all records that do not have any orders.

use CUSTOMERS

use ORDERS in select( ) order CUST_ID

delete for .not. seek( CUST_ID, "ORDERS" )

The Customers table is in the current work area while the SEEK( ) is performed in the Orders table.