Code listing for: ZBCTCODE_DISP2
Description: Include ZBCTCODE_DISP2
*&---------------------------------------------------------------------*
*& 包含 ZBCTCODE_DISP2
*&---------------------------------------------------------------------*
SELECT a~account ,b~name_last ,SUM( a~count ) AS count
FROM @gt_user AS a
LEFT JOIN user_addr AS b
ON a~account = b~bname
WHERE account IN @s_uname
GROUP BY a~account,b~name_last
INTO TABLE @DATA(et_user).
gt_fieldcat = VALUE #(
( fieldname = 'ACCOUNT' coltext = '用户' key = 'X' )
( fieldname = 'NAME_LAST' coltext = '用户姓名' )
( fieldname = 'COUNT' coltext = '总访问次数' )
).
SORT et_user BY count.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
* i_grid_title = '用户列表'
* i_structure_name = 'TSTC'
i_callback_pf_status_set = 'FRM_PF_STATUS'
i_callback_user_command = 'FRM_USER_COMMAND3'
* i_grid_settings = gv_settings
is_layout_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat[]
i_save = 'A'
TABLES
t_outtab = et_user[]
EXCEPTIONS
program_error = 1
OTHERS = 2.
Extracted by Direct Download Enterprise version 1.3 - E.G.Mellodew. 1998-2004 UK. Sap Release 752