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.