Progress OpenEdge как сортировать по длине char

Question

новичок вопрос здесь. Как я могу сортировать таблицу сотрудников по LEN (Firstname) Desc, а затем по lastName asc?

Вот код, который я до сих пор:

output to /usr2/appsrv/test/Test.txt. 
def var dRow as char. 
for each emp by emp.FirstName no-lock: 
    dRow = substitute ("&1,&2", emp.FirstName, emp.LastName). 
    put unformatted dRow skip. 
end. 
put unformatted dRow skip. 
output close. 

Я по версии 11.3.3

Спасибо

Answer 1

for each emp by length(emp.firstName) descending by lastName: 
    display emp.firstName emp.lastName. 
end. 

Performance будет вонять, если это большой стол.

Answer 2

for each emp no-lock by emp.FirstName desc by emp.LastName :