How to add Change Layout, savelayout, select layout Button to ALV Toolba

Question

How to add Change Layout, savelayout, select layout Button to ALV Toolbar?
Moderator message: please (re)search yourself before asking.
[Asking Good Questions in the Forums to get Good Answers|/people/rob.burbank/blog/2010/05/12/asking-good-questions-in-the-forums-to-get-good-answers]
locked by: Thomas Zloch on Sep 10, 2010 10:57 AM

Answer 1

Variant
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = gs_variant
            i_save              = c_save
          it_default_fieldcat =
       IMPORTING
            e_exit              = gf_exit
            es_variant          = gs_variant
       EXCEPTIONS
            not_found = 2.
  IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    IF gf_exit = space.
      cf_varia = gs_variant-variant.
    ENDIF.
  ENDIF.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = c_save
    CHANGING
      cs_variant    = gs_variant
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.
  IF sy-subrc NE 0.
    cf_subrc = sy-subrc.
  ENDIF.
Change Layout, savelayout, select layout Button  pass the value which is in BOLD
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                =  gd_repid
     i_callback_user_command           =  'U_COMMAND'
     i_callback_top_of_page            = 'TOP-OF-PAGE'
                     is_layout                    =  fld_lay
       it_fieldcat                  =  fieldcatalog[]
                   IT_EXCLUDING                  =
                   IT_SPECIAL_GROUPS             =
                   IT_SORT                        =  it_sort[]
     i_default                      = 'X'
     i_save                         = 'A'
     is_variant                     = gs_variant
     it_events                      =  it_event[]
    TABLES
      t_outtab                      =    it_sales
                 EXCEPTIONS
                   PROGRAM_ERROR                     = 1
                   OTHERS                            = 2
Annasaheb