Re: How to sort internal table by field length?

hi Rama,

pls try this code:

**********SORT

TYPES: BEGIN OF TY,
         FIELD1 TYPE C LENGTH 10,
         FIELD_LENGTH TYPE I,
        END OF TY.
       
DATA: WA TYPE TY,
       ITAB LIKE STANDARD TABLE OF WA.
       
WA-FIELD1 = 'A-AAC'.
APPEND WA TO ITAB.

WA-FIELD1 = 'A-ABC'.
APPEND WA TO ITAB.

WA-FIELD1 = 'B-BC'.
APPEND WA TO ITAB.

WA-FIELD1 = 'B-ACDE'.
APPEND WA TO ITAB.

WA-FIELD1 = 'C-A'.
APPEND WA TO ITAB.

WA-FIELD1 = 'C-EDS'.
APPEND WA TO ITAB.

WA-FIELD1 = 'D-AA'.
APPEND WA TO ITAB.

LOOP AT ITAB INTO WA. 
   WA-FIELD_LENGTH = STRLEN( WA-FIELD1 ).
   MODIFY ITAB FROM WA.
   WRITE: / WA-FIELD1, WA-FIELD_LENGTH.
ENDLOOP.

WRITE: / 'AFTER SORT'.
SORT ITAB BY FIELD_LENGTH FIELD1.
LOOP AT ITAB INTO WA.     
   WRITE: / WA-FIELD1, WA-FIELD_LENGTH.
ENDLOOP.