REPORT ztest_alv_lvc_selmode.TYPES:BEGIN OF gty_ekko,ebeln TYPE ekko-ebeln,verkf TYPE ekko-verkf,sel   TYPE c,  "用来标识行选择的字段END OF gty_ekko.
DATA:git_ekko TYPE STANDARD TABLE OF gty_ekko,gwa_ekko TYPE gty_ekko.DATA:git_fcat   TYPE lvc_t_fcat,gwa_fcat   LIKE LINE OF git_fcat,gwa_layout TYPE lvc_s_layo.
CONSTANTS: gco_callback_user_command TYPE slis_formname  VALUE 'FRM_USER_COMMAND',gco_callback_status       TYPE slis_formname  VALUE 'FRM_USER_STATUS'.START-OF-SELECTION.SELECT ebelnverkfINTO CORRESPONDING FIELDS OF TABLE git_ekkoFROM ekkoUP TO 10 ROWS.PERFORM frm_set_catalog.gwa_layout-zebra = 'X'.gwa_layout-box_fname = 'SEL'.  "指定行选择字段gwa_layout-cwidth_opt = 'X'.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program       = sy-repidis_layout_lvc            = gwa_layoutit_fieldcat_lvc          = git_fcati_callback_pf_status_set = gco_callback_statusi_callback_user_command  = gco_callback_user_commandTABLESt_outtab                 = git_ekko[]EXCEPTIONSprogram_error            = 1OTHERS                   = 2.IF sy-subrc = 0.ENDIF.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_PF_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_user_status USING i_it_extab TYPE slis_t_extab.SET PF-STATUS 'S0001' .
ENDFORM.                    " FRM_SET_PF_STATUSFORM frm_user_command USING i_ucomm       TYPE sy-ucommi_wa_selfield TYPE slis_selfield.DATA:l_count TYPE n,l_msg   TYPE char100.CASE i_ucomm.WHEN 'POP'.  "click POP button in application toolbarLOOP AT git_ekko TRANSPORTING NO FIELDS WHERE sel = 'X'.l_count = l_count + 1.ENDLOOP.CONCATENATE 'Select'l_count'rows'INTO l_msgSEPARATED BY space.MESSAGE l_msg TYPE 'I'.WHEN OTHERS.ENDCASE.ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_set_catalog .DATA:l_pos TYPE i VALUE 1.CLEAR: l_pos.l_pos = l_pos + 1.gwa_fcat-coltext   = 'PO'.gwa_fcat-scrtext_l = 'PO'.gwa_fcat-scrtext_m = 'PO'.gwa_fcat-scrtext_s = 'PO'.gwa_fcat-fieldname = 'EBELN'.gwa_fcat-col_pos = l_pos.gwa_fcat-outputlen = '10'.APPEND gwa_fcat TO git_fcat.l_pos = l_pos + 1.gwa_fcat-coltext   = 'PO item'.gwa_fcat-scrtext_l = 'PO item'.gwa_fcat-scrtext_m = 'PO item'.gwa_fcat-scrtext_s = 'PO item'.gwa_fcat-fieldname = 'VERKF'.gwa_fcat-col_pos = l_pos.gwa_fcat-outputlen = '20'.APPEND gwa_fcat TO git_fcat.ENDFORM.