Regarding sort at table control

Question

Hay guys,
In table control i want to click particular column header and sort it.
could you tell me what setings i have to make in table control
and where i have to write code for sorting.
I am using table control wizard.
suggestion please.
thanks,
ambichan

Answer 1

Hi Ambi Chan,
   this is a sample program to sort:
For this purpose we have to use the type-pools: cxtab.
see the sample code and try.
REPORT ZTEST_TX .
TYPE-POOLS: CXTAB .
DATA : BEGIN OF ITAB OCCURS 0.
          INCLUDE STRUCTURE MARA.
DATA : END OF ITAB.
DATA COL TYPE CXTAB_COLUMN.
CONTROLS : TC TYPE TABLEVIEW USING SCREEN 100.
START-OF-SELECTION.
SELECT * FROM MARA INTO TABLE ITAB.
IF SY-SUBRC = 0 .
ENDIF.
END-OF-SELECTION.
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZTEST'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& ModulE E INPUT
tExt
MODULE E INPUT.
LEAVE PROGRAM.
ENDMODULE. " E INPUT
*& Module read INPUT
text
MODULE READ INPUT.
READ TABLE ITAB INDEX TC-CURRENT_LINE.
ENDMODULE. " read INPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
DATA: FLDNAME(100),HELP(100).
DATA : T LIKE SY-TABIX.
READ TABLE TC-COLS INTO COL WITH KEY SELECTED = 'X'.
IF SY-SUBRC = 0 .
CLEAR T.
T = SY-TABIX.
ENDIF.
SPLIT COL-SCREEN-NAME AT '-' INTO HELP FLDNAME.
CASE SY-UCOMM .
WHEN 'S+'.
SORT ITAB BY (FLDNAME) ASCENDING.
WHEN 'S-'.
SORT itab BY (FLDNAME) descending.
COL-INVISIBLE = 'X'.
MODIFY TC-COLS FROM COL INDEX T.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
Pls reward points if helpful.
- Selvapandian Arunachalam