ides增加权限

 

*&---------------------------------------------------------------------*
*& Report  ZZQK_AUTH_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zzqk_auth_test.
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.

转载于:https://www.cnblogs.com/purehunter/archive/2012/01/30/2331855.html