Adding button in the secondary list and alv grid

Question

Hi all ,
            i have devloped an alv grid interactive report as below, my problem is i want to add some button in the secondary list and do some interactions. but i dont know how to do that. i m sending u my code below ,,, plzz suggest what can be done do add that.
<code>
*& Report  Z_demo_SALESDOC
REPORT  z_demo_salesdoc.
TABLES: vbak, vbap.
TYPE-POOLS:slis.
DATA: BEGIN OF it_vbak OCCURS 0,
       vbeln TYPE vbak-vbeln,
       ernam TYPE vbak-ernam,
       erdat TYPE vbak-erdat,
       auart TYPE vbak-auart,
       END OF it_vbak.
DATA: BEGIN OF it_vbap OCCURS 0,
       vbeln TYPE vbap-vbeln,
       posnr TYPE vbap-vbeln,
       matnr TYPE vbap-matnr,
       zmeng TYPE vbap-zmeng,
       netwr TYPE vbap-netwr,
       END OF it_vbap.
DATA:it_event TYPE slis_t_event.
DATA: t_field TYPE slis_t_fieldcat_alv,
      w_field TYPE slis_fieldcat_alv,
      t_field1 TYPE slis_t_fieldcat_alv,
      w_field1 TYPE slis_fieldcat_alv,
      w_layout TYPE slis_layout_alv,
      t_sort TYPE slis_t_sortinfo_alv,
      w_sort TYPE slis_sortinfo_alv.
CONSTANTS: c_top_of_page  TYPE slis_formname VALUE 'TOP_OF_PAGE',
           c_usercommand  TYPE slis_formname VALUE 'USER_COMMAND'.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln MODIF ID m1,
                s_erdat FOR vbak-erdat MODIF ID m2.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
PARAMETERS:rb1 RADIOBUTTON GROUP g1 USER-COMMAND us1,
           rb2 RADIOBUTTON GROUP g1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN OUTPUT.
  IF rb1 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1    = 'M1'.
     IF screen-name    CS 'S_VBELN'.
        screen-active    = '0'.
       screen-input     = '0'.
      screen-output    = '0'.
      screen-invisible = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
  IF rb2 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1    = 'M2'.
        screen-active    = '0'.
       screen-input     = '0'.
      screen-output    = '0'.
      screen-invisible = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
AT SELECTION-SCREEN.
  DATA: v_vbeln LIKE vbak-vbeln.
  SELECT SINGLE vbeln
                  FROM vbak
                  INTO (v_vbeln)
                  WHERE vbeln IN s_vbeln .
  IF sy-subrc <> 0.
    MESSAGE e001(q) WITH 'Invalid Sales document'.
  ENDIF.
  DATA: v_erdat LIKE vbak-erdat.
  SELECT SINGLE erdat
                  FROM vbak
                  INTO (v_erdat)
                  WHERE erdat IN s_erdat.
  IF sy-subrc <> 0.
    MESSAGE e001(q) WITH 'No document available with given date'.
  ENDIF.
START-OF-SELECTION.
  PERFORM get_data_vbak.
  PERFORM build_field_catalog.
PERFORM fill_event.
  PERFORM print_data_vbak.
END-OF-SELECTION.
*&      Form  get_data_vbak
      text
-->  p1        text
<--  p2        text
FORM get_data_vbak .
  SELECT vbeln ernam erdat auart
                            FROM vbak
                            INTO TABLE it_vbak
                            WHERE vbeln IN s_vbeln AND erdat IN s_erdat.
ENDFORM.                    " get_data_vbak
*&      Form  build_field_catalog
      text
-->  p1        text
<--  p2        text
FORM build_field_catalog .
  w_field-col_pos = 1.
  w_field-fieldname = 'VBELN'.
  w_field-tabname = 'IT_VBAK'.
  w_field-seltext_m = 'Sales Order'.
  w_field-emphasize = 'C710'.
  APPEND w_field TO t_field.
  CLEAR w_field.
  w_field-col_pos = 2.
  w_field-fieldname = 'ERNAM'.
  w_field-tabname = 'IT_VBAK'.
  w_field-seltext_m = 'Created by'.
  w_field-emphasize = 'C710'.
  APPEND w_field TO t_field.
  CLEAR w_field.
  w_field-col_pos = 3.
  w_field-fieldname = 'ERDAT'.
  w_field-tabname = 'IT_VBAK'.
  w_field-seltext_m = 'Created Date'.
  w_field-emphasize = 'C710'.
  APPEND w_field TO t_field.
  CLEAR w_field.
  w_field-col_pos = 4.
  w_field-fieldname = 'AUART'.
  w_field-tabname = 'IT_VBAK'.
  w_field-seltext_m = 'Order type'.
  w_field-emphasize = 'C710'.
  APPEND w_field TO t_field.
  CLEAR w_field.
  w_sort-spos = 1.
  w_sort-fieldname = 'VBELN'.
  w_sort-up = 'X'.
  APPEND w_sort TO t_sort.
  w_layout-colwidth_optimize = 'X'.
ENDFORM.                    " build_field_catalog
*&      Form  user_command
      text
     -->RF_UCOMM     text
     -->RS_SELFIELD  text
FORM user_command USING rf_ucomm    TYPE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  CASE rf_ucomm.
    WHEN '&IC1'.
      IF rs_selfield-fieldname = 'VBELN'.
        READ TABLE it_vbak INDEX rs_selfield-tabindex.
        IF sy-subrc = 0.
          PERFORM get_data_vbap.
          PERFORM build_field_catalog2.
          PERFORM print_field_data.
        ENDIF.
      ENDIF.
  ENDCASE.
ENDFORM.                    "user_command
*&      Form  print_data_vbak
      text
-->  p1        text
<--  p2        text
FORM print_data_vbak .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
   i_callback_user_command           = 'USER_COMMAND'
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  = I_STRUCTURE_NAME
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      = I_GRID_TITLE
  I_GRID_SETTINGS                   = I_GRID_SETTINGS
     is_layout                         = w_layout
   it_fieldcat                       = t_field[]
  IT_EXCLUDING                      = IT_EXCLUDING
  IT_SPECIAL_GROUPS                 = IT_SPECIAL_GROUPS
   it_sort                           = t_sort
  IT_FILTER                         = IT_FILTER
  IS_SEL_HIDE                       = IS_SEL_HIDE
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        = IS_VARIANT
  it_events                         = it_event[]
  IT_EVENT_EXIT                     = IT_EVENT_EXIT
  IS_PRINT                          = IS_PRINT
  IS_REPREP_ID                      = IS_REPREP_ID
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   = IT_ALV_GRAPHICS
  IT_HYPERLINK                      = IT_HYPERLINK
  IT_ADD_FIELDCAT                   = IT_ADD_FIELDCAT
  IT_EXCEPT_QINFO                   = IT_EXCEPT_QINFO
  IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
  ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USER
    TABLES
      t_outtab                          = it_vbak
EXCEPTIONS
   program_error                     = 1
   OTHERS                            = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " print_data_vbak
*&      Form  fill_event
      text
FORM fill_event .
  DATA : st_event TYPE slis_alv_event.
*- Clear.
  CLEAR : st_event, it_event[].
*- Local variable
  DATA : l_tabix TYPE sy-tabix.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = it_event
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
*- Read event table
  READ TABLE it_event WITH KEY name = slis_ev_user_command
                       INTO st_event.
*- Clear
  CLEAR l_tabix.
  l_tabix = sy-tabix.
*- Check subrc
  IF sy-subrc = 0.
    st_event-form = c_usercommand.
*- Modify
    MODIFY it_event FROM st_event INDEX l_tabix.
*- Clear
    CLEAR st_event.
  ENDIF.
ENDFORM.                    " fill_event
*&      Form  get_data_vbap
      text
FORM get_data_vbap .
  IF NOT it_vbak[] IS INITIAL.
    SELECT vbeln
           posnr
           matnr
           zmeng
           netwr
        FROM vbap
        INTO TABLE it_vbap
        WHERE vbeln = it_vbak-vbeln.
    IF sy-subrc = 0.
      SORT it_vbap BY vbeln.
    ENDIF.
  ENDIF.
ENDFORM.                    " get_data_vbap
*&      Form  build_field_catalog2
      text
FORM build_field_catalog2 .
  CLEAR:t_field1,w_field1.
  w_field1-col_pos = 1.
  w_field1-fieldname = 'VBELN'.
  w_field1-tabname = 'IT_VBAP'.
  w_field1-seltext_m = 'Sales Order'.
  w_field1-emphasize = 'C710'.
  APPEND w_field1 TO t_field1.
  CLEAR w_field1.
  w_field1-col_pos = 2.
  w_field1-fieldname = 'POSNR'.
  w_field1-tabname = 'IT_VBAP'.
  w_field1-seltext_m = 'Sales Doc Item'.
  w_field1-emphasize = 'C710'.
  APPEND w_field1 TO t_field1.
  CLEAR w_field1.
  w_field1-col_pos = 3.
  w_field1-fieldname = 'MATNR'.
  w_field1-tabname = 'IT_VBAP'.
  w_field1-seltext_m = 'Material No'.
  w_field1-emphasize = 'C710'.
  APPEND w_field1 TO t_field1.
  CLEAR w_field1.
  w_field1-col_pos = 4.
  w_field1-fieldname = 'ZMENG'.
  w_field1-tabname = 'IT_VBAP'.
  w_field1-seltext_m = 'Target quan units'.
  w_field1-emphasize = 'C710'.
  APPEND w_field1 TO t_field1.
  CLEAR w_field1.
  w_field1-col_pos = 5.
  w_field1-fieldname = 'NETWR'.
  w_field1-tabname = 'IT_VBAP'.
  w_field1-seltext_m = 'Net value dc cu'.
  w_field1-emphasize = 'C710'.
  APPEND w_field1 TO t_field1.
  CLEAR w_field1.
ENDFORM.                    " build_field_catalog2
*&      Form  print_field_data
      text
FORM print_field_data .
SET PF-STATUS 'VBAP'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  = I_STRUCTURE_NAME
  I_BACKGROUND_ID                   = ' '
     i_grid_title                      = 'VBAP DETAILS'
  I_GRID_SETTINGS                   = I_GRID_SETTINGS
  IS_LAYOUT                         = IS_LAYOUT
     it_fieldcat                       = t_field1[]
  IT_EXCLUDING                      = IT_EXCLUDING
  IT_SPECIAL_GROUPS                 = IT_SPECIAL_GROUPS
  IT_SORT                           = IT_SORT
  IT_FILTER                         = IT_FILTER
  IS_SEL_HIDE                       = IS_SEL_HIDE
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        = IS_VARIANT
  IT_EVENTS                         = IT_EVENTS
  IT_EVENT_EXIT                     = IT_EVENT_EXIT
  IS_PRINT                          = IS_PRINT
  IS_REPREP_ID                      = IS_REPREP_ID
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   = IT_ALV_GRAPHICS
  IT_HYPERLINK                      = IT_HYPERLINK
  IT_ADD_FIELDCAT                   = IT_ADD_FIELDCAT
  IT_EXCEPT_QINFO                   = IT_EXCEPT_QINFO
  IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
  ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USER
    TABLES
      t_outtab                          = it_vbap
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " print_field_data
</code>

Answer 1

Hi Satya..
This is the Sample code...
DATA : V_FORM_GUI TYPE SLIS_FORMNAME VALUE 'F_GUI'.  "Form name
**Secondary List
FORM print_field_data .
SET PF-STATUS 'VBAP'.  "This statement will not work for ALV
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
<b> I_CALLBACK_PF_STATUS_SET = V_FORM_GUI  
                                                  "Subroutine in which GUI status is called</b>
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'   "To handle GUI
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME = I_STRUCTURE_NAME
I_BACKGROUND_ID = ' '
i_grid_title = 'VBAP DETAILS'
I_GRID_SETTINGS = I_GRID_SETTINGS
IS_LAYOUT = IS_LAYOUT
it_fieldcat = t_field1[]
IT_EXCLUDING = IT_EXCLUDING
IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
IT_SORT = IT_SORT
IT_FILTER = IT_FILTER
IS_SEL_HIDE = IS_SEL_HIDE
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT = IS_VARIANT
IT_EVENTS = IT_EVENTS
IT_EVENT_EXIT = IT_EVENT_EXIT
IS_PRINT = IS_PRINT
IS_REPREP_ID = IS_REPREP_ID
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS = IT_ALV_GRAPHICS
IT_HYPERLINK = IT_HYPERLINK
IT_ADD_FIELDCAT = IT_ADD_FIELDCAT
IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
TABLES
t_outtab = it_vbap
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " print_field_data
FORM F_GUI USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'GUI_1'.  "Double click and Create this GUI status and add buttons
ENDFORM.
<b><REMOVED BY MODERATOR></b>
Message was edited by:
        Alvaro Tejada Galindo