topic Re: Sort the classical report in Application Development and Automation Discussions

Sort the classical report

Former Member — Tue, 30 Mar 2010 13:31:56 GMT

Hi,

I have a classical report. Now on the report screen I want to sort the report by clicking on column headings.

How can we sort the classical report?

Regards,

Re: Sort the classical report

Former Member — Tue, 30 Mar 2010 13:33:25 GMT

catch the click, recognize on what the user clicked and then sort your Internal table by the field.

Then process again your write statements.

Re: Sort the classical report

Former Member — Wed, 31 Mar 2010 07:22:08 GMT

Thanks for reply but how to do that?

Re: Sort the classical report

kesavadas_thekkillath — Wed, 31 Mar 2010 09:12:12 GMT

This example will help you for logic, here the fields are taken manually.

You can do it dynamically also, there are some methods available for that.


REPORT abc NO STANDARD PAGE HEADING.

TYPE-POOLS:abap.

DATA:it TYPE TABLE OF marc.
DATA:wa TYPE marc.
TYPES:BEGIN OF ty,
      field1 TYPE abap_compname ,
      field2 TYPE abap_compname ,
      END OF ty.
DATA: wa_field TYPE ty.
DATA:lv_value TYPE char25,
     lv_field TYPE char25.

AT LINE-SELECTION.
  GET CURSOR FIELD lv_field VALUE lv_value.
  SORT it BY (lv_value) ASCENDING.
  sy-lsind = 0.
  PERFORM write_data.

START-OF-SELECTION.
  SELECT * FROM marc INTO TABLE it UP TO 100 ROWS.
  wa_field-field1 = 'MATNR'.
  wa_field-field2 = 'WERKS'.
  PERFORM write_data.

FORM write_data .
  WRITE AT 1 wa_field-field1 HOTSPOT ON.
  WRITE AT 19 sy-vline.
  WRITE AT 20 wa_field-field2 HOTSPOT ON.
  WRITE AT 25 sy-vline.
  HIDE wa_field.

  WRITE /  sy-uline.
  LOOP AT it INTO wa.
    WRITE:/1 wa-matnr,
          19 sy-vline,
          20 wa-werks,
          25 sy-vline.
  ENDLOOP.
ENDFORM.                    " WRITE_DATA