SAP ABAP 关闭指定事务代码的窗口

DATA : itab        TYPE TABLE OF ublksd WITH HEADER LINE,

       tidstr(10),

       modestr(10) .

DATA:lv_mode TYPE sy-index.

CLEAR:itab,itab[].

CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode_detailed_blk_info

                 ID 'TAB'    FIELD itab-*sys*.

DELETE itab WHERE mandt = ''.

DELETE itab WHERE tcode NE '指定事务代码'.

LOOP AT itab.

  CLEAR lv_mode.

  lv_mode = itab-extmode.

  lv_mode = lv_mode - 1 .

  CALL FUNCTION 'TH_DELETE_MODE'

    EXPORTING

      mode = lv_mode.

ENDLOOP.