Randomly be able to sort and give top n on any of the field

Question

hi abapers
i mean to say that when the final output comes i can randomly be able to sort and give top n on any of the field and then get the output on the same screen. as we do in mc.5
i m trying to find the solution for this for last 2 months
can u provide me the code how to do this as i m not able to understand mc.5 code for top n function.
itab having mat rate qty
then when the output comes i want to get n top items on any of the field ( material,rate,qty) and number n can be any no of records.

Answer 1

Hi deepika,
well, it depends. let's say you want a popup to ask for the field of an internal table with a known struture, ie, it's structure is defined in the data dictionary. You can do something like this to select the sort field:
  DATA: it_t000 TYPE TABLE OF t000 WITH HEADER LINE.
  DATA: it_fields TYPE TABLE OF dd03l-fieldname WITH HEADER LINE.
  DATA: it_spopli TYPE TABLE OF spopli WITH HEADER LINE.
  DATA: l_answer LIKE sy-tabix.
  SELECT * FROM t000 INTO TABLE it_t000.
  SELECT fieldname INTO TABLE it_fields FROM dd03l WHERE tabname = 'T000'.
  LOOP AT it_fields.
*maybe it would be more useful the description instead of the fieldname,
* this is just an example
    it_spopli-varoption = it_fields.
    APPEND it_spopli.
  ENDLOOP.
  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
      textline1          = ''
      titel              = 'Get field order'
    IMPORTING
      answer             = l_answer
    TABLES
      t_spopli           = it_spopli
    EXCEPTIONS
      not_enough_answers = 1
      too_much_answers   = 2
      too_much_marks     = 3
      OTHERS             = 4.
  READ TABLE it_spopli INDEX l_answer.
  DATA: otab  TYPE abap_sortorder_tab,
        oline TYPE abap_sortorder.
  oline-name = it_spopli-varoption.
  APPEND oline TO otab.
  SORT it_t000 BY (otab).
  LOOP AT it_t000.
    WRITE: / it_t000.
  ENDLOOP.
whereas you can use this to query and select the top n lines:
  DATA: it_t000 TYPE TABLE OF t000 WITH HEADER LINE.
  DATA: it_t000_1 TYPE TABLE OF t000 WITH HEADER LINE.
  DATA: it_fields TYPE TABLE OF dd03l-fieldname WITH HEADER LINE.
  DATA: it_spopli TYPE TABLE OF spopli WITH HEADER LINE.
  DATA: l_answer LIKE sy-tabix.
  SELECT * FROM t000 INTO TABLE it_t000.
  SELECT fieldname INTO TABLE it_fields FROM dd03l WHERE tabname = 'T000'.
  LOOP AT it_fields.
    it_spopli-varoption = it_fields.
    APPEND it_spopli.
  ENDLOOP.
  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
      textline1          = ''
      titel              = 'Get field order'
    IMPORTING
      answer             = l_answer
    TABLES
      t_spopli           = it_spopli
    EXCEPTIONS
      not_enough_answers = 1
      too_much_answers   = 2
      too_much_marks     = 3
      OTHERS             = 4.
  READ TABLE it_spopli INDEX l_answer.
  DATA: otab  TYPE abap_sortorder_tab,
        oline TYPE abap_sortorder.
  oline-name = it_spopli-varoption.
  APPEND oline TO otab.
  DATA: l_value TYPE spop-varvalue1,
        l_top TYPE sy-tabix.
  CALL FUNCTION 'POPUP_TO_GET_ONE_VALUE'
    EXPORTING
      textline1      = 'Number of top lines'
      titel          = 'top lines'
      valuelength    = 2
    IMPORTING
      value1         = l_value
    EXCEPTIONS
      titel_too_long = 1
      OTHERS         = 2.
  l_top = l_value.
  SORT it_t000 BY (otab).
  DO l_top TIMES.
    READ TABLE it_t000 INDEX sy-index.
    APPEND it_t000 TO it_t000_1.
  ENDDO.
  LOOP AT it_t000_1.
    WRITE: / it_t000_1.
  ENDLOOP.
there is a significant number of ways to achieve this, it depends on what type of list you have (ALV, table control, write list), the type of table line (data dictionary, internal table type) and the type of interaction you want with the user.
The code above might be the most simple example.
regards,
Edgar