Contoh Pop Up Message Menggunakan "REUSE_ALV_POPUP_TO_SELECT"

*&---------------------------------------------------------------------*
*& Report  ZALV_POPUP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zalv_popup.
TYPE-POOLS : icon, slis.
DATA : BEGIN OF t_log OCCURS 0,
icon(4),
msgtyp TYPE bdc_mart,
descr(132),
END OF t_log,
gt_fieldcatlog TYPE slis_fieldcat_alv OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.
  PERFORM fm_insert_log.
  PERFORM fm_insert_field.
  PERFORM fm_show_log.

*&---------------------------------------------------------------------*
*& Form FM_INSERT_LOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fm_insert_log .
  CLEAR : t_log, t_log[].
  t_log-icon = icon_green_light.
  t_log-msgtyp = 'S'.
  t_log-descr = 'Success'.
  APPEND t_log. CLEAR t_log.
  t_log-icon = icon_yellow_light.
  t_log-msgtyp = 'W'.
  t_log-descr = 'Warning'.
  APPEND t_log. CLEAR t_log.
  t_log-icon = icon_red_light.
  t_log-msgtyp = 'E'.
  t_log-descr = 'Error'.
  APPEND t_log. CLEAR t_log.
ENDFORM. " FM_INSERT_LOG
*&---------------------------------------------------------------------*
*& Form FM_INSERT_FIELD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fm_insert_field .
  CHECK NOT t_log[] IS INITIAL.
  REFRESH gt_fieldcatlog.
  CLEAR gt_fieldcatlog.
  gt_fieldcatlog-col_pos = 1.
  gt_fieldcatlog-fieldname = 'ICON'.
  gt_fieldcatlog-seltext_l = 'Status'.
* gt_fieldcat-ref_fieldname = ''.
* gt_fieldcat-ref_tabname = ''.
  gt_fieldcatlog-outputlen = 8.
  APPEND gt_fieldcatlog.
  CLEAR gt_fieldcatlog.
  gt_fieldcatlog-col_pos = 2.
  gt_fieldcatlog-fieldname = 'MSGTYP'.
  gt_fieldcatlog-seltext_l = 'MSG TYPE'.
  gt_fieldcatlog-outputlen = 8.
  APPEND gt_fieldcatlog.
  CLEAR gt_fieldcatlog.
  gt_fieldcatlog-col_pos = 3.
  gt_fieldcatlog-fieldname = 'DESCR'.
  gt_fieldcatlog-seltext_l = 'Deskripsi'.
  gt_fieldcatlog-outputlen = 50.
  APPEND gt_fieldcatlog.
ENDFORM. " FM_INSERT_FIELD
*&---------------------------------------------------------------------*
*& Form FM_SHOW_LOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fm_show_log .
  CHECK NOT t_log[] IS INITIAL.
  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
  EXPORTING
  i_title = 'Information!'
  i_selection = ' '
* I_ALLOW_NO_SELECTION =
* I_ZEBRA = ' '
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_CHECKBOX_FIELDNAME =
* I_LINEMARK_FIELDNAME =
* I_SCROLL_TO_SEL_LINE = 'X'
  i_tabname = 'T_LOG'
* I_STRUCTURE_NAME =
  it_fieldcat = gt_fieldcatlog[]
* IT_EXCLUDING =
* I_CALLBACK_PROGRAM =
* I_CALLBACK_USER_COMMAND =
* IS_PRIVATE =
* IMPORTING
* ES_SELFIELD =
* E_EXIT =
  TABLES
  t_outtab = t_log
  EXCEPTIONS
  program_error = 1
  OTHERS = 2.
ENDFORM. " FM_SHOW_LOG


Output :