查看用户在线会话数量.docVIP

查看用户在线会话数量 REPORT z_send_message NO STANDARD PAGE HEADING LINE-SIZE 120 . INCLUDE list. DATA: BEGIN OF usr_tabl OCCURS 0. INCLUDE STRUCTURE uinfo. DATA: END OF usr_tabl. DATA: l_length TYPE i, t_abaplist LIKE abaplist OCCURS 0 WITH HEADER LINE. DATA: BEGIN OF t_user OCCURS 0, counter TYPE i, selection TYPE c, mandt LIKE sy-mandt, bname LIKE sy-uname, name_first LIKE v_adrp_cp-name_first, name_last LIKE v_adrp_cp-name_last, department LIKE v_adrp_cp-department, tel_number LIKE v_adrp_cp-tel_number, END OF t_user . DATA: l_client LIKE sy-mandt, l_userid LIKE uinfo-bname, l_opcode TYPE x, l_funct_code(1) TYPE c, l_test(200) TYPE c. l_opcode = 2. CALL ThUsrInfo ID OPCODE FIELD l_opcode ID TAB FIELD usr_tabl-*sys* . CLEAR t_user. REFRESH t_user. LOOP AT usr_tabl. t_user-mandt = usr_tabl-mandt. t_user-bname = usr_tabl-bname. APPEND t_user. ENDLOOP. SORT t_user. DELETE ADJACENT DUPLICATES FROM t_user. LOOP AT t_user. t_user-counter = sy-tabix. SELECT v~name_first v~name_last v~department v~tel_number INTO (t_user-name_first, t_user-name_last, t_user-department, t_user-tel_number) FROM usr21 AS u JOIN v_adrp_cp AS v ON u~persnumber = v~persnumber AND u~addrnumber = v~addrnumber WHERE u~bname = t_user-bname. ENDSELECT. MODIFY t_user. ENDLOOP. SORT t_user BY department name_last. PERFORM display_list. TOP-OF. PERFORM display_menu. * End of top-of TOP-OFDURING LINE-SELECTION . PERFORM display_menu. * End of top-ofduring line-selection AT LINE-SELECTION. IF sy-curow = 2. IF sy-cucol 19. t_user-selection = X. MODIFY t_user TRANSPORTING selection WHERE selection = . PERFORM display_list. ELSEIF sy-cucol 36. CLEAR t_user-selectio