Hi Edgar,
Select contact, eligarea, groupnum, groupname, IIF(ASC(contact)>64, CHR(0)+contact,CHR(1)+contact) as contactord from modicomm ;
WHERE NOT DELETED() ORDER BY 5 INTO CURSOR TempC
Copy FIELDS contact, eligarea, groupnum, groupname to C:\Temp\vsamnew.txt Type SDF
or
SELECT 0
USE modicomm AGAIN ALIAS TempC
INDEX ON IIF(ASC(contact)>64, CHR(0)+contact,CHR(1)+contact) FOR NOT DELETED() TAG SDFOrder
Copy FIELDS contact, eligarea, groupnum, groupname to C:\Temp\vsamnew.txt Type SDF
DELETE TAG SDFOrder
Fabio
