IF TYPE("update.iData") <> "N"
 IF !ISEXCLUSIVE( "update")
  *---------------------------------
  USE DBF( "update" ) EXCLUSIVE
  ENDIF
 ALTER TABLE ( 'UPDATE.dbf' ) ADD COLUMN iDATA I
ENDIF

*-- Manualy put the Value from idata

SET ENGINEBEHAVIOR 90
SELECT DISTINCT  CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation , UPDATE.iid ,;
iDATA FROM UPDATE ORDER BY iDATA WHERE FILE( ADDBS( UPDATE.clocation) + "Id.dbf") AND ;
 FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ;
 FILE ( ADDBS(clocation) + "Amline.dbc" ) INTO ARRAY Societes
SET ENGINEBEHAVIOR 70