Delete Mode

Question

Hi,
I would like to delete a single mode of any user/terminal (depending on the used tcode) after 5 min inactivity.
My coding works so far, but it closes the parent mode (where I run my abap-program), not the mode I what it to close (where the tcode runs).
I don´t want to kick off the user from the system.
Program RSM04000_ALV is the basis of my coding.
Has anybody an idea?
thanx
Sebastian
* get user list
CALL FUNCTION 'TH_USER_LIST'
  TABLES
    list = i_list.
* get detailed user-info of all transactions
LOOP AT i_list INTO w_list.
  REFRESH i_user_info.
  CALL FUNCTION 'TH_LONG_USR_INFO'
    EXPORTING
      user      = w_list-bname
    TABLES
      user_info = i_user_info.
  APPEND LINES OF i_user_info TO i_alluser_info.
ENDLOOP.
* check tcode
LOOP AT i_alluser_info INTO w_alluser_info
     WHERE tcode EQ 'SM04'.
  GET TIME.
* check time (5 Min)
  h_time_tcode =  w_alluser_info-time.
  h_time_tcode = h_time_tcode + ( 5 * 60 ).
  IF h_time_tcode LE sy-uzeit.
    mode = w_alluser_info-mode.
    CALL FUNCTION 'THUSRINFO'
      TABLES
        usr_tabl = usrtab.
    LOOP AT usrtab WHERE bname = w_alluser_info-user.
      opcode = 24. "Operation code value to delete a mode
* delete mode
      CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode
      ID 'TID' FIELD usrtab-tid
      ID 'MODES' FIELD mode.
    ENDLOOP.
  ENDIF.
ENDLOOP.

Answer 1

Hi,
In fact, in order to get the TID of the window that you want to close, you call the MF 'THUSRINFO' which only gives you ONE mode per user (I don't know why)...
But you can directly call ThUsrInfo (the system call and not the MF) with the appropriate OPCODE which will give you the whole TID on the current system. One such OPCODE is :
OPCODE_DETAILED_BLK_INFO LIKE TH_OPCODE VALUE 76
(you can get all OPCODE in the include TSKHINCL of the function group TSHK )
The code you have to put in your program is (instead of your call at the MF 'THUSRINFO') :
DATA : gt_all_screens TYPE TABLE OF ublksd.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD gd_opcode_detailed_blk_info
                 ID 'TAB'    FIELD gt_all_screens.
The table gt_all_screens contains all screens with their TID : you just have to select the correct one in order to kill it...
Samuel