REPORT z_barry_test .
INCLUDE tskhincl.
DATA : itab TYPE TABLE OF ublksd WITH HEADER LINE ,
tidstr(10),
modestr(10) .
START-OF-SELECTION.
PERFORM dismode.
AT LINE-SELECTION.
tidstr = itab-tid.
modestr = itab-extmode.
SET PARAMETER ID: 'TID' FIELD tidstr,
'SESSION' FIELD modestr.
CALL TRANSACTION 'ZDELMODE' AND SKIP FIRST SCREEN.
PERFORM dismode.
*&---------------------------------------------------------------------*
*& Form dismode
*&---------------------------------------------------------------------*
FORM dismode.
CLEAR:itab,itab[].
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode_detailed_blk_info
ID 'TAB' FIELD itab-*sys*.
DELETE itab WHERE mandt = ''.
LOOP AT itab.
WRITE: / itab-mandt,
itab-bname,
itab-tcode,
itab-tid,
itab-extmode .
HIDE: itab-mandt,itab-tid,itab-extmode.
ENDLOOP.
sy-lsind = 0.
ENDFORM. "dismode
阅读(3729) | 评论(0) | 转发(0) |