>SET ENGINEBEHAVIOR 90 >SELECT DISTINCT CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation , UPDATE.iid , ; >SUBSTR( UPDATE.cLocation,1,LEN(ALLTRIM(ADDBS( UPDATE.clocation ))) - 1) as SortOrder ; > FROM UPDATE ORDER BY SortOrder , iid 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 >>
>>CREATE CURSOR t (cLocation C(40)) >>INSERT INTO t VALUES ('c:\Data1\') >>INSERT INTO t VALUES ('c:\Data16\') >>INSERT INTO t VALUES ('c:\Data16g\') >>SELECT cLocation,SUBSTR(cLocation,1,LEN(ALLTRIM(ADDBS( clocation ))) - 1) as SortOrder FROM t ORDER BY 2