CLOSE DATABASES ALL

USE 'C:\Program Files\Microsoft Visual FoxPro 9\Samples\Data\customer.dbf' IN 0

LOCAL cCursor
cCursor = 'mytable_' + SYS(2015)

SELECT * FROM customer ;
   WHERE NOT EMPTY(cust_id) ;
   INTO CURSOR(cCursor) NOFILTER READWRITE
   
IF USED(cCursor) AND RECCOUNT(cCursor) > 0
   SELECT(cCursor)
   SCAN
   
      ? company
      
   ENDSCAN
ENDIF

IF USED(cCursor)
   USE IN(cCursor)
ENDIF

CLOSE DATABASES ALL