通过函数的方法弹出一个对话框，提供选择数据的功能……
DATA: BEGIN OF lt_exidv OCCURS ,
box TYPE char1,
exidv TYPE exidv,
status TYPE char4,
END OF lt_exidv.
DATA: lt_fieldcat TYPE slis_t_fieldcat_alv,
lh_fieldcat TYPE LINE OF slis_t_fieldcat_alv.
DATA:l_message(),l_line. lt_exidv-exidv = ''.
lt_exidv-status = ''.
APPEND lt_exidv.
lt_exidv-exidv = ''.
lt_exidv-status = ''.
APPEND lt_exidv.
lt_exidv-exidv = ''.
lt_exidv-status = ''.
APPEND lt_exidv. IF lt_fieldcat[] IS INITIAL.
CLEAR lh_fieldcat.
lh_fieldcat-fieldname = 'EXIDV'.
lh_fieldcat-seltext_l = '箱码'.
lh_fieldcat-outputlen = .
APPEND lh_fieldcat TO lt_fieldcat[].
* CLEAR lh_fieldcat.
* lh_fieldcat-fieldname = 'STATUS'.
* lh_fieldcat-seltext_l = '箱状态'.
* lh_fieldcat-outputlen = .
* APPEND lh_fieldcat TO lt_fieldcat[].
ENDIF. CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
* I_TITLE =
* I_SELECTION = 'X'
* I_ALLOW_NO_SELECTION =
i_zebra = 'X'
* I_SCREEN_START_COLUMN =
* I_SCREEN_START_LINE =
* I_SCREEN_END_COLUMN =
* I_SCREEN_END_LINE =
i_checkbox_fieldname = 'BOX'
* I_LINEMARK_FIELDNAME =
* I_SCROLL_TO_SEL_LINE = 'X'
i_tabname = 'LT_EXIDV'
* I_STRUCTURE_NAME =
it_fieldcat = lt_fieldcat[]
* IT_EXCLUDING =
* I_CALLBACK_PROGRAM =
* I_CALLBACK_USER_COMMAND =
* IS_PRIVATE =
* IMPORTING
* ES_SELFIELD =
* E_EXIT =
TABLES
t_outtab = lt_exidv
EXCEPTIONS
program_error =
OTHERS = .
IF sy-subrc <> .
* CALL FUNCTION 'MESSAGE_TEXT_BUILD'
* EXPORTING
* msgid = sy-msgid
* msgnr = sy-msgno
* msgv1 = sy-msgv1
* msgv2 = sy-msgv2
* msgv3 = sy-msgv3
* msgv4 = sy-msgv4
* IMPORTING
* message_text_output = l_message.
* MESSAGE l_message TYPE 'E'.
ELSE.
LOOP AT lt_exidv WHERE box = 'X'.
l_line = sy-tabix.
CONCATENATE l_message '您选中的有第' l_line '行...' INTO l_message.
ENDLOOP.
MESSAGE l_message TYPE 'I'.
ENDIF.
弹出的DIALOG示例：
