>SET ENGINEBEHAVIOR 90 >SELECT DISTINCT CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation , UPDATE.iid ; > FROM UPDATE WHERE FILE( ADDBS( UPDATE.clocation) + "Id.dbf") AND ; > FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ; > FILE ( ADDBS(clocation) + "Amline.dbc" ) INTO ARRAY Societes ORDER BY 1 >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