GUI status in ALV

Question

Hai i copied standard gui status in my alv report.
i hav req. to do..when i click on exit(%EX) and cancel(RW)it should appear pop-up window..with two buttons "do u want to exit". if yes..should exit the report and if no..continue with current screen.
i have 6 secondary lists..should i write the code in all the 6 ucomm(s) or only once is needed.?
plz give me code for this.??

Answer 1

hai check my code...i added like this. its not working
FORM usecomm USING ucomm LIKE sy-ucomm fields TYPE slis_selfield.
case sy-ucomm.
when '%EX' OR 'RW'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
   TITLEBAR                    = 'EXIT'
  DIAGNOSE_OBJECT             = ' '
    text_question               = 'Do u want to exit?'
  TEXT_BUTTON_1               = 'Ja'(001)
  ICON_BUTTON_1               = ' '
  TEXT_BUTTON_2               = 'Nein'(002)
  ICON_BUTTON_2               = ' '
  DEFAULT_BUTTON              = '1'
  DISPLAY_CANCEL_BUTTON       = 'X'
  USERDEFINED_F1_HELP         = ' '
  START_COLUMN                = 25
  START_ROW                   = 6
  POPUP_TYPE                  =
IMPORTING
  ANSWER                      =
TABLES
  PARAMETER                   =
EXCEPTIONS
  TEXT_NOT_FOUND              = 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.
endcase.
CASE ucomm.
  WHEN '&IC1'.
  IF fields-fieldname = 'SALES_OFF'.
  READ TABLE tbl_basic_list INDEX fields-tabindex.
  SELECT vkgrp FROM s707
  INTO TABLE tbl_first_list
  FOR ALL ENTRIES IN tbl_basic_list
  WHERE vkbur EQ tbl_basic_list-vkbur
    AND vkbur EQ fields-value.
   SELECT bezei FROM tvgrt INTO CORRESPONDING FIELDS OF TABLE
   tbl_first_list WHERE vkgrp = tbl_first_list-vkgrp AND
                        spras = sy-langu.
SELECT avkgrp bbezei INTO CORRESPONDING FIELDS OF TABLE
tbl_first_list FROM s707 AS a INNER JOIN tvgrt AS b
ON avkgrp = bvkgrp
WHERE b~spras = sy-langu
   AND a~vkbur = fields-value.
DELETE ADJACENT DUPLICATES FROM tbl_first_list.
APPEND tbl_first_list.
IF NOT tbl_first_list IS INITIAL.
   LOOP AT tbl_first_list.
     CONCATENATE tbl_first_list-vkgrp '-'
                 tbl_first_list-bezei INTO
                 tbl_first_list-sgroup
                 SEPARATED BY space.
concatenate tbl_first_list-vkgrp+0(1)
             tbl_first_list-vkgrp+2(1) into
             tbl_first_list-sort.
      MODIFY tbl_first_list INDEX sy-tabix.
   ENDLOOP.
ENDIF.
ELSE.
   CALL FUNCTION 'POPUP_TO_INFORM'
     EXPORTING
       titel         = repid
       txt1          = sy-subrc
       txt2          = 'No data found!'
  TXT3          = ' '
  TXT4          = ' '
ENDIF.
PERFORM fcat_first_list.
PERFORM fieldcat_sort USING gs_sort[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_INTERFACE_CHECK                 = ' '
    I_BYPASSING_BUFFER                =
    I_BUFFER_ACTIVE                   = ' '
      i_callback_program                = sy-cprog
      i_callback_pf_status_set          = 'PF_STATUS'
      i_callback_user_command           = 'USECOMM1'
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      =
    I_GRID_SETTINGS                   =
      is_layout                         = layout
      it_fieldcat                       = fcat1[]
    IT_EXCLUDING                      =
    IT_SPECIAL_GROUPS                 =
      it_sort                           = gs_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
    I_DEFAULT                         = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
      it_events                         = events1[]
    IT_EVENT_EXIT                     =
    IS_PRINT                          = gs_print
    IS_REPREP_ID                      =
    I_SCREEN_START_COLUMN             = 0
    I_SCREEN_START_LINE               = 0
    I_SCREEN_END_COLUMN               = 0
    I_SCREEN_END_LINE                 = 0
    IT_ALV_GRAPHICS                   =
    IT_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
    IT_EXCEPT_QINFO                   =
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = tbl_first_list
    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.
   CASE sy-subrc.
    WHEN '1'.
      MESSAGE s000.
    WHEN OTHERS.
      MESSAGE s001.
  ENDCASE.
ENDIF.
ENDCASE.
ENDFORM.
Make corrections...it's not working here