*&---------------------------------------------------------------------*
*& Form set_pf_status
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
form set_pf_status using rt_extab type slis_t_extab.
set pf-status 'ZSTANDARD'.
endform. "Set_pf_status
form user_command using ucomm like sy-ucomm
selfield type slis_selfield.
read table it_data index selfield-tabindex.
check sy-subrc = 0.
case ucomm.
when '&IC1'.
set parameter id 'VF' field it_data-faph.
call transaction 'VF03' and skip first screen.
endcase.
endform. "USER_COMMAND
orm display_data.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = w_repid "当前程序
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
i_save = ''
is_layout = i_layout "子函数layout_build填充的格式定义
it_fieldcat = i_fieldcat_alv[] "子函数fields填充的各列
i_grid_title = tmp_title
tables
t_outtab = it_data. "假设数据都在head1内表中
endform. "display_data
蓝色部分必须加入