The other way that comes to my mind is to build a UDF, because If You have a code like this:

020101 SubSub1 previous SELECTs doesn't work:

SELECT PADR(MyFunc(MyTable.Code)) AS Decription .....


FUNCTION MyFunc(cString)
  LOCAL ret_val, seek_val
  ret_val = ""
  seek_val = ""
  DO WHILE .NOT. EMPTY(cString)
     seek_val = seek_val + LEFT(cString,2)
     cString = SUBSTR(cString,3)
     SEEK seek_val IN MyTable ORDER MyTableOrderByCode
     ret_val = ret_val + " " + ALLTRIM(Description)
  ENDDO
RETURN ALLTRIM(ret_val)

but it isn't so fast way