abap editer 解锁枷锁

最新推荐文章于 2022-12-14 01:09:36 发布

lymkelly

最新推荐文章于 2022-12-14 01:09:36 发布

阅读量430

点赞数

分类专栏：经典源程序

本文链接：https://blog.csdn.net/lymkelly/article/details/2348447

版权

经典源程序专栏收录该内容

16 篇文章 0 订阅

订阅专栏

TABLES: trdir. "系统表 TRDIR

PARAMETERS: program LIKE trdir-name.
PARAMETERS: editor LIKE trdir-edtx.

SELECT SINGLE * FROM trdir WHERE name = program.
IF sy-subrc = 0.
trdir-edtx = editor.
MODIFY trdir.
IF sy-subrc EQ 0.
    WRITE: / 'Successful ', trdir-name.
    IF trdir-edtx = 'X'.
      WRITE: ' 锁上'.
    ELSE.
      WRITE: ' 解锁'.
    ENDIF.
ELSE.
    WRITE: / '操作失败 ', trdir-name.
ENDIF.
ELSE.
WRITE: / '未找到程序：', program.
ENDIF.